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ABSTRACT 


The  goal  of  the  present  work  was  to  upgrade  the  data 
acquisition  system  (DAS)  in  the  high-speed  building  of  the 
Turbopropulsion  Ladsoratory  (TPL)  and  to  develop  a  high-speed 
acquisition  capability  for  pressure  measurements  for  both  the 
TPL  and  the  new  Gas  Dynamics  laboratory  (GDL) .  Based  on  the 
use  of  the  Hewlett  Packard  HP9000  Series  300  Computer  as  the 
system  controller,  a  96-channel  high-speed  pressure  DAS  was 
developed  using  Scanivalve  ZOC-14  modules  and  a  CALSYS2000 
calibrator.  The  system  allowed  acquisition  times  for  current 
wind-tunnel  experiments  to  be  revised  from  four  minutes  to 
eleven  seconds.  Also,  new  software  was  written  to  acquire 
data  from  existing  rotary  pneumatic  Scanivalves  and  HP-IB 
compatible  instrumentation  so  that  all  other  existing 
acquisition  capabilities  were  maintained  in  both  ledsoratories . 
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I.  INTRODUCTION 


The  Turbopropulsion  LaUDoratory  (TPL)  consists  of  two  large 
buildings /  each  with  a  central  data  acquisition  system  (DAS) 
seirving  multiple  rotating  and  cascade  test  rigs.  One  building 
is  for  low-speed  and  one  is  for  high-speed  flow  experiments. 
The  Gas  Dynamics  Laboratory  (GDL)  consists  of  a  single  large 
building,  closely  adjacent  to  the  other  two,  for  which 
components  for  a  central  data  acquisition  system  had  been 
purchased,  but  not  installed,  at  the  inception  of  the  present 
work.  The  GDL  houses  three  blow-down  wind  tunnel  facilities 
and  a  shock  tube. 

In  planning  the  DAS  for  the  GDL,  commonality  of  the 
controller  with  the  systems  in  the  TPL  was  desirable  in  order 
to  eliminate  the  need  for  students  to  learn  different 
machines,  to  simplify  the  support  task,  and  to  interchange 
parts  in  the  event  of  a  failure.  Since  the  TPL  low-speed 
building  was  recently  upgraded  to  use  a  Hewlett-Packard  HP9000 
Series  300  computer,  two  additional  similar  computers  were 
purchased,  one  for  the  DAS  new  DAS  and  one  to  upgrade  the  DAS 
in  the  TPL  high-speed  laboratory.  Thus  the  task  in  the 
present  work  was  two- fold.  First,  software  was  required  to  be 
generated  on  the  HP9000  which  would  enable  all  established  DAS 
functions  and  experiments  in  the  high-speed  laboratory  at  the 
TPL  to  be  maintained.  Second,  a  high-speed  scanning  data 
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system  was  required  to  acquire  pressure  measurements  in  the 
short  (minutes)  duration  blow-dovm  wind  tunnel  tests  in  the 
GDL.  Future  upgrading  in  all  laboratories  would  clearly 
depend  on  the  experience  gained  in  developing  the  high  speed 
scanning  system. 

The  pre-existing  DAS's  at  the  TPL  incorporated  Hewlett 
Packard  HP-IB  compatible  scanners,  digital  voltmeters,  system 
voltmeters,  frequency  counters  and  a  locally  developed  HG-78K 
controller  for  pneumatic  Scanivalves.  Prior  to  the  HP9000 
acquisition,  in  earlier  updates,  the  HP9830,  HP9845  and  HPIOOO 
computers  had  been  used  as  system  controllers.  Because  of 
almost  unlimited  run-times  of  the  rigs  at  the  TPL,  and  the 
need  largely  to  record  many  channels  of  "steady-state" 
measurements,  the  data-recording  times  were  not  a  critical 
issue.  [For  "real-time"  pressure  measurements,  a  16-channel 
100  Khz  cap2d3ility  was  provided  using  a  (non  HP-IB)  DMA  input 
to  the  HPIOOO  from  a  now-obsolete  HP5610A  A/D  converter] . 

Data  acquisition  was  accomplished  in  the  "steady-state" 
system,  by  computers  executing  individual  data  measurement 
instructions  under  program  control .  The  maximum  data 
collection  rate  was  determined  by  the  speed  that  the  computers 
could  execute  individual  instructions  within  the  program 
between  consecutive  data  measurement  steps.  Pressure 
measurements  were  made  using  the  Scanivalve  rotary  pneumatic 
pressure  sensing  unit  operated  by  the  NPS  HG-78K  Controller. 
The  Scanivalve  unit  sequentially  stepped  through  its  block  of 
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ports  collecting  single  pressure  data  once  every  1.5  seconds. 
The  HG-78K  stepped  the  Scanivalve  to  the  specified  measurement 
port  on  commands  executed  by  the  computer.  In  summary,  the 
pressure  data  acquisition  rate  was  limited  by  the  speed  of  the 
peripheral  devices  and  by  the  computer's  speed  in  executing 
program  instructions. 

The  first  task  in  the  present  work,  to  regenerate  the 
software  ior  the  TPL  "steady-state"  DAS  in  HP  BASIC  5.13  on 
the  HP9000,  served  to  become  femiliar  with  the  computer  and 
its  programming,  but  no  detailed  report  is  included  herein. 
The  main  task  was  to  develop  a  high-speed  scanning  system  for 
GDL,  emd  this  is  dociimented  in  detail. 

The  hardware  for  the  new  system  included  the  HP9000  Desk 
Top  Computer  System,  HP6944A  Multiprogreunmer,  Scanivalve  ZOC- 
14  Electronic  Scanning  Pressure  Module  and  CALSYS2000 
Calibrator.  The  HP9000  serves  as  the  computer-controller 
using  the  BASIC  progreunming  language.  Data  and  program 
storage  for  the  HP9000  is  handled  by  a  HP9153C  Disc  Drive 
incorporating  a  40  mega-byte  hard  drive  and  1.44  mega-byte 
3.25"  floppy  drive.  (The  HP9153C  replaced  the  older  HP7906 
Disc  Drive  and  HP7970E  Tape  Drive  of  the  HPIOOO  system) . 

The  HP6944A  combines  several  data  acquisition  devices  (I/O 
Cards)  into  one  unit.  The  significant  feature  of  the  HP6944A 
is  its  ability  to  perform  specific  data  acquisition  functions, 
and  to  control  the  data  measurement  steps  without  intervention 
from  the  host  computer  (HP9000) .  The  HP6944A  removes  the 
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individual  data  measurement  instructions  of  the  program  from 
the  acquisition  process,  resulting  in  data  rates  which  are 
limited  only  by  the  speed  of  the  individual  I/O  card  and  the 
non-Hewlett  Packard  device. 

In  comparison  with  the  TPL  "steady-state”  system,  the  ZOC- 
14  module  replaces  the  low  speed  rotary  Scanivalve  and  instead 
provides  high  speed  electronic  scanning  of  the  pressure  ports. 
The  CAIiSYS2000  provides  ZOC  control  and  supplies  calibration 
pressures  to  it,  making  the  ZOC  and  CALSYSZOOO  a  "packaged” 
pressure  measurement  system. 

The  software  which  was  generated  to  integrate  the  HP9000, 
HP6944A  and  Scanivalve  ZOC-14/CALSYS2000  system  was  designated 
as  program  SCAN_ZOC_05.  The  complete  package  of  hardware  and 
software  is  referred  to  hereafter  as  the  ZOC-14  Data 
Acquisition  System,  or  ZOC-14  DAS. 

In  the  present  document.  Chapter  Two  describes  and 
discusses  the  development  of  the  ZOC-14  DAS.  The  hardware, 
individual  component  operation.  Integration  of  the  components 
into  a  complete  system,  and  the  application  programs  to 
operate  the  DAS  are  discussed  in  detail.  It  is  hoped  that 
this  chapter  will  serve  as  a  manual  for  the  system,  and  as  a 
guide  to  those  responsible  for  future  extensions. 

Chapter  Three  discusses  the  upgraded  capabilities  of  TPL 
and  GDL  DAS's,  potential  extensions  and  outstanding  issues. 
(The  ZOC-14  DAS  is  fully  operational,  but  requires  resolution 
of  these  issues  to  optimize  the  system's  performance). 
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Finally,  conclusions  are  drawn  and  a  particular  recommendation 
is  made  in  chapter  Four. 

Additional  details  are  given  in  the  Appendices.  Appendix 
A  contains  the  ZOC-14  DAS  application  program  flow  chart,  the 
application  program  SCAN_ZOC_05,  and  associated  utility 
prograuBS.  The  utility  programs  are  used  to  read  and  display 
the  results  of  the  data  compiled  by  the  SCAN_ZOC_05  program. 

Appendix  B  contains  four  earlier  versions  in  arriving  at 
the  SCAN_ZOC_05  program.  The  program  evolved  in  steps,  as 
knowledge  was  gained  on  the  hardware  operation  and 
integration,  and  software  progreunming.  Each  program  is 
annotated  with  pertinent  information  to  describe  the  program's 
functional  routines,  and  are  reported  as  and  aid  to  future 
programming. 

Appendix  C  contains  a  brief  guide  to  managing  data  files 
provided  by  the  ZOC-14  DAS  collection  process.  A  program  is 
listed,  and  instructions  provided,  to  view  and  delete  selected 
data  files  from  the  hard  drive.  A  sample  print-out  of  the 
hard  drive  contents  is  provided,  showing  the  data  file  listing 
and  unique  structure  for  the  ZOC-14  DAS  data  files. 

Appendix  D  provides  a  listing  of  all  major  programs 
developed  for  use  on  the  HP9000  for  the  TPL.  A  compilation  of 
all  programs,  listed  in  groups  of  "directories"  contained  on 
the  HP9153C  hard  drive,  is  provided.  The  major  program 
listings  are  divided  into  the  categories  of  Turbocharger 
Performance,  AE4431  Turbomachinery  Design,  and  several  sample 


5 


routines  to  operate  devices,  perform  calculations,  and 
manipulate  files. 
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II.  ZOC-14  DATA  ACQUISITION  SYSTEM 


A.  General  Overview 
1.  Hardware 

The  ZOC-14  Data  Acquisition  System  (DAS)  hardware 
includes  the  Scanivalve  ZOC-14  Electronic  Pressure  Scanning 
Module  (Figure  1) ,  the  Scanivalve  CALSYS2000  Calibration 
System  (Figure  2)  ,  the  Hewlett  Packard  HP6944A  Multiprogrammer 
(Figure  3),  and  the  Hewlett  Packard  HP9000  Desk  Top  Computer 
System  and  peripherals  (Figure  4) . 


Figure  1  ZOC-14  Electronic  Pressure  Scanning  Module 
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Figure  2  CALSYS2000  Calibration  System 


Figure  3  HP6944A  Multiprogrammer 
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Figure  4  HP9000  Computer  System 
2.  Software  and  Literature 

The  HP9000  is  provided  with  BASIC  5.13  software.  On¬ 
line  compilation  occurs  when  a  program  is  executed  by  the  RUN 
command.  This  user-friendly  feature  allows  expeditious 
changes  to  be  made  in  a  program  without  the  separate  time 
consximing  re-compilation  process  required  by  other  high  level 
programming  languages.  The  result  is  the  ability  to  RUN  a 
program,  change  the  program,  and  RUN  the  program  again  with 
minimal  effort  and  time,  making  BASIC  an  ideal  tool  for  an 
engineer. 


The  BASIC  software  system  and  doc\amentation  includes 
the  necessary  firmware  provided  on  seven  3.25”  floppy  disks 
and  twelve  manuals  describing  the  loading,  utilization,  and 
maintenance  of  BASIC  (Figure  5) [Ref .  1  through  Ref.  12]. 


The  two  volume  Hewlett  Packard  Educational  Package 
(Figure  5) [Ref .  13  through  Ref.  14]  is  vital  to  quickly  learn 
BASIC  and  its  implementation  with  the  HP9000  and  the  line  of 
Hewlett  Packard  peripheral  devices.  This  package  condenses 
all  the  pertinent  information  contained  in  the  BASIC  program 
manuals.  The  novice  programmer  will  find  that  the  Educational 
Package  provides  the  necessary  fundamentals  in  how  to  use 
BASIC.  The  advanced  programmer  will  be  regularly  referencing 
the  BASIC  program  manuals  for  his  programming  requirements. 
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The  HP14753A  CAT  Program  Package  (Figure  5) [Ref.  15] 
comprises  the  firmware  and  docximentation  required  to  set-up 
and  operate  the  HP6944A  Multiprogrammer.  •  Details  of  this 
package  will  be  discussed  later  in  this  chapter. 

3.  TPL  ZOC-14  DAS  System 

The  TPL  ZOC-14  DAS  System  is  an  integration  of  all  the 
aforementioned  hardware,  firmware,  and  newly  developed 
software  into  an  application  package.  The  capability  of  the 
system  is  the  ability  to  collect  pressure  data  on  multiple 
channels  at  high  sampling  rates,  reduce  the  raw  data,  and 
store  the  reduced  data  using  a  user  friendly,  menu-driven 
operating  program  on  the  HP9000  computer.  A  schematic  of  the 
ZOC-14  DAS  System  is  illilstrated  in  Figure  6.  The  HP9000 
computer  is  the  central  controlling  device  for  the  system. 
Software  on  the  HP9000  controls  data  collection  from  the 
''ALSYS2000  and  HP6944A,  data  reduction,  and  data  storage  to 
the  computer's  hard  drive  and  floppy  drive.  The  HP6944A 
interfaces  with  the  ZOC-14  modules  providing  electronic  port 
selection,  receiving  analog  voltages  and  converting  to  digital 
data.  The  CALSYS2000  is  controlled  by  the  HP9000,  provides 
calibration  pressure  to  the  ZOCs,  pneumatically  sets  the  ZOC's 
operating  modes,  and  provides  digital  data  conversion  of 
calibration  pressure  to  the  HP9000.  The  ZOC-14  module 
converts  pneumatic  pressures  to  analog  voltage  signals  which 
are  collected  in  the  HP6944A. 
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Figure  6  ZOC-14  Data  Acquisition  System 
B.  Hardware  Description 

1.  Z0C'-14  Electronic  Pressiire  Scemning  Module 

a.  Principle  of  Operation 

The  ZOC-14  is  a  32  port  electronically  switched 
pressure  sensing  device.  Internally,  pressures  are  converted 
through  semi-conductor  strain  gages  to  -an  analog  voltage 
output  signal  for  each  selected  port  (Figure  7) .  The 
electronic  switching  feature  allows  the  individual  strain 
gages  to  be  selected  at  random,  and  the  output  voltage  signal 
to  be  read. 
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Flgura  7  ZOC-14  Module  Diagram 

Each  ZOC  contains  a  series  of  valves  that  are 
pneumatically  switched  to  set  an  operating  mode.  Shown  in 
Figure  8  are  the  ports  PI  through  Px  which  are  connected  by 
pneumatic  pressure  ttibing  to  the  apparatus  or  probe  wnere 
pressure  is  to  be  measured,  such  as  the  model  in  a  wind 
tunnel.  The  Calibration  Manifold  and  Sensor  Reference 
Pressure  Manifold  are  connected  to  the  CALSYS2000  to  receive 
a  reference  calibration  pressure  to  be  measured  by  the  ZOC  for 
calibration  purposes.  CAL  Control  (CTLl)  and  Px  Control 
(CTL2)  are  pneumatic  control  lines  that  position  the  valves  to 
set  the  required  operating  mode  in  the  ZOC.  CAL  and  Px 
control  pressures  are  provided  by  the  CALSYS2000. 
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PRESSURE  SENSOR  MODULE 


CONinOL  Ain  SUPPLY 


Figiire  8  ZOC-14  Valve  Body  Schem'.tic 

The  ZOC  operates  on  the  principle  "ZERO  OPERATE 
AND  CALIBRATE”;  hence  the  name  "ZOC”.  This  principle  involves 
a  two  phase  sequcnc  ».  The  first  phase  sets  the  ZOC  into  an 
"OPERATE"  node  and  experimental  pressure  data  at  pressure 
ports  PJ  -lirough  Px  are  converted  and  recorded.  The  second 
phas».  s^  .  the  ;0C  into  the  "CALIBRATE"  ...ode.  The  CALSYS2000 
provides  a  calibration  pressure  through  the  Calibration 
Manifold  and  Sensor  Reference  Pressure  Manifold  to  each  strain 
gage.  Calibration  pressure  data  are  then  collected  from  the 
ZOC  for  each  port  by  the  HP6944A.  The  HP9000  collects  the 
pressure  data  from  the  HP6944A  and  digital  converted 
calibration  pressure  data  from  the  CALSYS2000.  These  two  sets 
of  data  are  plotted  against  each  other  to  get  a  calibration 
curve  for  each  ZOC  strain  gage. 

Figure  9  illustrates  the  ZOC's  four  modes  of 
operation.  In  the  OPERATE  mode,  PI  .pressure  is  routed  to  the 
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strain  gage,  and  the  Calibration  Manifold  is  isolated.  In  the 
CALIBRATE  mode,  calibration  pressure  is  routed  to  the  strain 
gage,  and  the  PI  pressure  is  isolated.  The  PURGE  and  LEAK 
TEST  modes  are  used  for  clearing  pressure  lines  and  for 
diagnostic  checks,  respectively. 

The  Multiplexer  and  Amplifier  section  (Figure  8) 
facilitates  the  ZOC's  high  speed  scanning  capability.  The 
multiplexer  is  driven  by  a  five  bit  address  input  signal  (AO 
through  A4)  from  the  HP6944A,  selecting  a  specified  port  from 
1  to  32  in  binary  code.  The  ZOC's  electronic  module  is 
illustrated  schematically  in  Figure  10.  The  analog  output 
signal  processing  is  accomplished  within  the  electronic 
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Figure  10  20C-14  Electronics  Schematic 


16 


AMPLIFIER  BOARD 


section  of  the  ZOC. 


Reference  16  provides  all  pertinent 
specifications,  descriptions  of  the  design  and  operation,  and 
is  the  source  document  for  the  above  technical  information  on 
the  Z0C>14  Module. 

b.  ZOC-14  Enclostire 

The  ZOC-14  Enclosure  was  designed  and  built  at  NFS 
to  provide  a  mobile  and  versatile  module  which  was  convenient 
for  electronic  and  pneumatic  connections,  and  provided 
protection  in  the  laboratory  environment.  Components  in  the 
enclosure  include  one  ZOC-14  Module  (Figure  1) ,  a  115  VAC 
power  supply,  a  BMC  connection  for  the  output  signal.  Cannon 
plugs  for  the  ZOC  address  input,  and  a  pneumatic  connection 
plate  for  measurement,  control,  and  calibration  pressure  lines 
(Figure  11) . 

Each  Px  port  on  the  ZOC-14  module  has  a 
corresponding  port  connection  on  the  pneumatic  connection 
plate.  The  connection  plate  port  ntunbers  1  through  32 
correspond  to  the  ZOC's  ports  as  selected  by  the  binary 
address  code.  The  Px  Control,  CAL  Control,  CAL,  and  REF  ports 
on  each  valve  block  (Figure  7)  are  each  connected  to  a  common 
line  as  illustrated  in  Figure  12.  The  Px  Control  line  is 
routed  to  port  number  33,  CAL  Control  to  port  number  34,  CAL 
to  port  number  35,  and  REF  to  port  number  36.  Ports  37 
through  48  are  not  used. 
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Flgur*  11  ZOC-14  Enclosure 

The  enclosure's  electrical  wiring  is  illustrated 


schematically  in  Figure  13.  The  two-five  pin  Cannon  plugs  are 
wired  in  parallel  to  jumper  ZOC  address  line  connection  points 
between  adjacent  enclosures.  This  feature  allows  for  one 
address  line  from  the  HF6944A  to  be  connected  to  the  first 
enclosure  Cannon  plug.  The  second  enclosure  receives  its  ZOC 
address  signal  from  the  second  Cannon  plug  on  the  first 
enclosure  by  a  jumper  line.  The  third  and  following 
enclosures  receive  their  ZOC  address  signals  in  the  same 
sequence  of  connections. 

A  significant  capability  of  the  ZOC  address 
control  feature,  in  connection  with  the  HP6944A,  is  the 
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Figure  13  ZOC-14  Enclosure  Electronics  Schematic 


ability  to  simultaneously  collect  pressure  data  from 


corresponding  ports  on  a  multiple  ZOC  configuration.  This 
capability  could  play  a  significant  role  in  determining  the 
pressure  tahavior  at  two  or  more  different  points  at  the  same 
instance  in  time.  The  number  of  instantaneous  data  points  is 
determined  by  the  nvimber  of  ZOCs  connected  into  the  ZOC-14  DAS 
System. 

2.  CA1jSYS2000  Calibration  Module 
SLt _ Description 

The  CALSYS2000  interfaces  the  ZOC  module  with  the 
HP9000  computer  by  setting  the  ZOC  mode  selection  as  commanded 
by  the  HP9000,  providing  calibration  information-  to  the 
HP9000,  and  sending  a  reference  calibration  pressure  to  the 
ZOC  for  calibration  purposes.  Figure  14^  shows  a  front  view 
of  the  CALSYS2000  module. 

The  CALSYS2000  is  comprised  of  a  Calibration 
Module  (CAIMOD  2000)  and  a  Power  and  Solenoid  Control  (PSC 
2000)  module.  Figure  15  illustrates  the  external  pneumatic 
and  electrical  line  connections  between  the  two  modules,  the 
nitrogen  supply  source  and  ZOC  pneiomatic  line  connections  as 
seen  in  a  rear  view  of  the  CALSYS2000  as  it  is  installed  at 
the  TPL. 


^  Figure  14  is  found  in  Ref.  17,  page  10,  as  Figure  1. 
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Figure  14  CALSYS2000  Calibration  System 


b.  Calibrator  Module  rcAmop  2000) 

The  CALMOD  2000  provides  the  electronic  interface 
with  the  HP9000  through  the  serial  RS-232C  data  link  with  a 
built-in  processor.  The  processor  responds  to  various 
commands  from  the  HP9000  and  issues  control  signals  to  actuate 
an  array  of  solenoids  within  the  CALMOD  and  PSC.  The 
selective  setting  of  the  solenoids  routes  reduced  nitrogen  gas 
pressure  to  set  the  ZOC  modes,  and  provide  a  regulated 
calibration  reference  pressure  for  ZOC  transducer  calibration. 
An  internal  Pressure  Standard  module  samples  the  calibration 
pressure  and  provides  a  proportional  analog  voltage  value  to 
the  processor.  The  processor's  internal  A/D  and  mathematical 


processors  return  a  digital  measure  of  the  pressure  in  either 
psia  or  inches  of  mercury.  The  CALMOD  is  currently  set  for 
Inches  of  mercury.  The  processor  provides  this  digital 
pressure  value  at  the  front  window  on  the  CALMOD  (item  5, 
Figure  14) ,  and  also  returns  the  value  to  the  HP9000  following 
a  "read  pressure"  command. 

The  CALMOD  has  three  manually  adjustable  pressure 
regulators  (items  6,7,8  in  Figure  14)  and  associated  pressure 
display  buttons  (items  2,3,4  in  Figure  14).  These  regulators 
provide  three  different  reference  calibration  pressures  that 
the  ZOC  uses  for  calibration.  During  the  calibration  mode, 
each  one  of  the  three  calibration  pressures  are  sequentially 
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sent  to  the  ZOC  and  the  Pressure  Standard.  To  calibrate  the 
ZOC  for  positive  pressures,  the  calibration  pressure  is 
provided  through  the  Calibration  Manifold  to  the  strain  gage 
transducers.  To  calibrate  the  ZOC  for  negative  pressures,  the 
calibration  pressure  is  provided  through  the  Sensor  Reference 
Pressure  Manifold  to  the  backside  of  the  strain  gage 
transducer.  Pressure  data  from  the  CALS YS2 000  and  ZOC  are 
collected  by  the  HP9000  and  reduced  to  obtain  calibration 
curves  for  each  ZOC  transducer. 

Figure  16^  shows  the  rear  panel  of  the  CALMOD  2000 
with  all  the  installed  connection  ports.  Figure  15 
illustrates  ports  currently  used  at  TPL.  The  CALMOD 
reccilves  a  r  mmon  low-pressure  supply  of  nitrogen  gas  to  the 
Solenoid  Supply  and  Regulator  Supply  connections.  Regulated 
calibration  pressure  is  supplied  to  the  ZOC  Calibration 
Manifold  through  the  CAL(+)  connection,  and  the  Sensor 
Reference  Pressure  Manifold  through  the  REF(-)  connection. 

Figure  17^  shows  the  pneumatic  lines  between  the 
CALSYS2000  and  ZOC  units.  The  TPL  currently  has  two  15  psid 
and  one  50  psid  ZOCs.  These  ranges  require  a  nominal  90  psi 
Regulated  (Instrument'  Air  Supply  to  properly  operate'*.  The 
solenoid  supply  is  90  psi  for  both  the  CALMOD  and  PSC. 

^  Figure  16  is  found  in  Ref.  17,  page  12,  as  Figure  2. 

^  Figure  17  is  found  in -Ref.  17,  page  21,  as  Figure  5. 

*  Refer  to  Ref.  17,  dwg  16202,  sht  1  of  9 ,  in  back  of 
ref.  17. 


c.  Power  and  Solenoid  Control  Module  fPSC  2000) 

The  PSC  provides  the  CALSYS2000  electrical  power 
and  pneiiinatically  controls  the  ZOCs.  Figure  18  shows  the  rear 
panel  of  the  PSC  with  all  external  connections.  Electrical 
power  is  supplied  to  the  CALMOD  through  an  electrical  jumper 
between  the  Power  Out  (item  3  in  Figure  18)  and  Power  In 
terminals  shown  in  Figure  15.  The  PSC  contains  the  solenoids 
which  route  control  air,  CAL  CTL  and  Px  CTL  (item  5  in 
Figure  18)  to  the  ZOC  for  mode  selection.  These  two  solenoids 
are  controlled  by  the  CALMOD  through  an  electrical  cable 
connecting  the  Solenoid  Control  connections  (item  3  in 
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Figure  17  CALSYS2000-ZOC  Pneunatic  HooJc-up 

Figure  16  and  Item  4  in  Figure  18) .  ZOC  control  gas  to  the 
solenoids  is  supplied  at  90  psia  from  a  high  pressure  nitrogen 
cylinder  through  the  Supply  port  (item  7  in  Figure  18) . 
d.  CAT.SYS7.noo  Operation 

The  CALSYS2000  communicates  with  the  HP9000 
Computer  through  the  RS-232C  serial  data  link  using  ASCII 
character  format  commands.  The  commands  used  for  the  ZOC-14 
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Figure  18  PSC  2000  Rear  Panel 


DAS  are  of  two  types: 


♦  Commands  from  the  HP9000  to  set  ZOC  and  CALSYS2000  modes 
by  the  actuation  of  control  solenoids. 

♦  Commands  to  provide  pressure  data  to  the  HP9000,  read  from 
the  Pressure  Standard. 

The  command  format  for  communications  requires  the  HP9000 
command  statement  to  have  the  following  ASCII  character  code 
format: 

aCC(CR) 
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The  "a”  is  the  CALMOD  address  character  which  is  currently  "1” 
for  the  only  CALMOD  installed  in  the  CALSYS2000  at  the  TPL. 
A  second  CALMOD  would  have  the  address  character  of  "2".  The 
"CC  part  is  the  applicable  command  code  such  as  "PH"  which  is 
discussed  later.  The  "(CR)”  is  for  a  ASCII  carriage  return 
character  which  is  "13”  in  decimal  format. 

The  commands  used  to  set  ZOC  and  CALSYS2000  modes 
are  summarized  below: 

OPERATE  mode  -  This  mode  allows  pressure  to  be  measured  by 
the  ZOC  by  setting  the  valves  in  the  ZOC  to  route  Px  air 
directly  to  the  strain  gage.  Calibration  functions  are  at 
idle.  The  OPERATE  mode  is  the  CALSYS2000  condition  when  it  is 
first  Initialized  or  powered>*up. 

♦  alC  Initialize  Calibrator  to  set  the  CALSYS2000  to 

its  power-up  condition 

CALIBRATION  mode  -  This  mode  is  set  at  the  ZOC. 
Calibration  reference  pressure  is  sent  to  the  ZOC,  and  all  gas 
is  routed  to  the  Pressure  standard  for  display  on  the  CALMOD 
window,  and  made  availedsle  to  the  HP9000. 

♦  aPH  Route  high  pressure  gas  from  Regulator  #1  to 

the  ZOCs  through  the  Calibration  Manifold 

♦  aPM  Route  medium  pressure  gas  from  Regulator  #2  air 

to  the  ZOCs  through  the  Calibration  Manifold 

♦  aPL  Route  low  pressure  gas  from  Regulator  #3  to  the 

ZOCs  through  the  Calibration  Manifold 
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♦  aZO  Gas  in  the  Calibration  and  Reference  Pressure 

Manifolds  is  equalized  to  atmopheric 
pressure  in  these  manifolds 

♦  aNL  Route  low  pressure  gas  from  Regulator  #3  to  the 

ZOCs  through  the  Reference  Pressure  Manifold 

a  aiNM  Route  medivun  pressure  gas  from  Regulator  #2  to  the 
ZOCs  through  the  Reference  Pressure  Manifold 

«  eiMH  Route  high  pressure  gas  from  Regulator  #1  to  the 
ZOCs  through  the  Reference  Pressure  Manifold 

Read  Pressiire  -  The  CAUtOD  is  asked  for  the  current 
pressure  value  being  sampled  by  the  Pressure  Standard.  This 
command  is  used  only  by  the  ZOC-14  DAS  program  during  the 
Calibration  Mode.  When  the  CALSYSZOOO  is  in  its  "initialized 
condition",  the  Pressure  Standard  reads  atmospheric  pressure. 

♦  aRP  Reads  the  pressure  sampled  by  the  Pressure 

Standard  and  returns  the  value  in  inches  of 
mercury  in  ASCII  character  format: 

"+/-!• 23456E+78  at  a" 

Reference  17,  Chapter  4,  discusses  the  details  and 
availeUsle  command  codes  use  by  the  CALSYS2000.  The  above 
codes  are  only  used  in  the  ZOC-14  DAS  program  with  the  HP9000. 
The  CALSYS2000  is  designed  to  operate  from  any  PC  using  a 
standard  modem  control  program. 

The  HP9000  and  BASIC  programming  language  required 
a  modification  of  the  CALSYS2000's  command  format  factory 
settings.  The  Line-feed  (LF)  ASCII  character  in  the  command 
line  corrupted  the  command  message  to  the  CALSYS2000  on  any 
sxibsequent  command  following  the  initial  HP9000  command. 


Deletion  of  the  LF  from  the  HP9000  command  resulted  in 
uninterrupted  command  of  the  CALSYS2000. 

[In  its  factory  configuration,  the  CALMOD 
"handshakes"  with  a  host  computer  using  a  "prompt  record"  to 
respond  to  a  host  computer  command.  (See  Reference  17)  . 
Following  a  commemd  issued  to  the  CALMOD,  the  HP9000  would 
receive  an  interrupt  error  and  halt  the  program.  The  BASIC 
line  commands  to  handle  the  CALMOD  prompt  record  could  not  be 
determined.  Subsequently,  the  factory-set  prompt  record 
"(CR) (LF) (;)"  was  deleted  to  allow  the  HP9000  to  continue 
without  an  interrupt  error.  Deletion  of  the  prompt  record 
" (CR) (LF) ( ; ) "  was  accomplished  by  setting  the  "Null"  prompt 
record.  The  Null  prompt  record  was  set  into  the  CALMOD 
processor  using  the  command  "  SMON  "  followed  by  "  BP  1  ". 
The  commands  were  communicated  using  a  386  PC  with  a  modem- 
control  program  that  performed  computer  to  computer 
communication.  The  first  command  set  the  Null  prompt  record, 
the  second  command  "burned"  the  Null  prompt  record  into  the 
CALMOD 's  PROM.] 

e.  CAT.«;YSpnoo  Gas  Supply  System 

The  CALSYS2000  requires  instrument  quality  air 
meeting  ISA-S7.3  [Ref.  17,  page  18].  The  use  of  commercial 
bottled  nitrogen  gas  more  than  satisfied  this  requirement. 
The  supply  system  for  the  CALSYS2000  at  TPL  is  illustrated  in 
Figure  19.  Nitrogen  gas  is  reduced  through  a  standard 
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re<  alator  set  at  90  psi,  providing  Solenoid  Control  and 
Regulator  Air. 


Ragulator  Sat 
CLaii  a  High  Praaa  Gagea) 


Figure  19  CALSYS2000  Nitrogen  Supply 

A  cut-out  valve  (Figure  15)  is  installed  between 
the  PSC  and  CALMOO  to  minimize  nitrogen  gas  consinnption.  The 
valve  is  set  closed  (handle  down)  when  the  CAIiSYS2000  is  used 
in  the  OPERATE  mode.  The  valve  is  opened  for  the  CALIBRATE 
mode.  Higher  gas  consumption  occurs  due  to  the  design  of  the 
regulators  in  the  CALMOD,  which  bleeds  off  gas  to  maintain  a 
constant  pressure  setting. 
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3.  Hewlett  PacJcard  Multiprogrzunmer  (HP6944A) 

a.  General  Description 

The  HP6944A  (Figure  3)  is  a  self-contained  module 
with  removeOsle  I/O  cards  which  control  various  device 
operations  or  fxinctions  and  interface  with  the  HP9000.  I/O 
cards  are  easily  installed  or  removed  by  sliding  the  card  into 
or  out  of  an  I/O  slot  in  the  enclosure.  The  HP9000 
commvinicates  with  the  I/O  card  through  the  HP6944A  internal 
processor  and  Backplane  Edge  Connector  which  the  installed  I/O 
card  plugs  into.  Electrical  power  supplies  for  the  I/O  cards 
are  contained  in  the  HP6944A  enclosure.  The  HP6944A  can 
support  up  to  16  I/O  cards,  depending  on  the  cards'  electrical 
power  requirements.  Figure  20  shows  the  HP6944A  with  the 
eight  I/O  cards  and  associated  ”edge  plane"  connecting  cables 
used  for  the  ZOC-14  OAS. 

Reference  18  provides  a  detailed  description  of 
the  HP6944A  and  a  brief  description  of  all  the  I/O  cards 
availedsle  for  the  HP6944A.  The  I/O  cards  used  in  the  ZOC-14 
DAS  are  described  in  the  following  paragraphs. 

b.  I/O  Cards 

fl)  500  Khz  A/D  Card  fHP69759A^ 

The  A/D  card  provides  analog  to  digital  signal 
conversion  from  the  ZOC-14  module.  One  A/D  card  is  required 
for  each  ZOC.  The  card  has  a  capability  of  performing  A/D 
conversions  at  a  rate  of  up  to  500  Khz.  The  card  is  factory 
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Figure  20  HF6944A  Rear  Panel  and  I/O  Cards 

set  to  handle  input  analog  voltages  between  +/-  lo  volts 
[Ref.  19].  The  A/0  process  provides  a  12  bit  resolution 
resulting  in  a  5  nV  digital  output  voltage  resolution. 

The  HP1417A  Chaining  Cable  (Figure  21^)  interfaces 
the  A/D  card  with  the  Memory  Card,  Pacer  Card  and  ZOC.  The 
digital  output  voltage  value  from  the  A/D  card  is  read  to  the 
Memory  Card  through  the  HP1417A  cable.  The  Pacer  Card's 
trigger  signal  and  ZOC  voltage  signal  are  received  by  the  A/D 
card  through  Chaining  Cable  input  leads. 

*  Figure  21  is  in  Ref.  19  as  figure  2-2. 


TO  HPG9791A  TO  HP6075aA 

UEMORV  CARO  A/D  CARO 


Figure  21  A/D-Memory  Chaining  Cable 

(2^  Memory  Card  (HP69791A^ 

The  Memory  Card  is  a  digital  data  storage 
device  used  here  to  store  ZOC  voltage  values  from  the  A/D 
card.  Data  are  stored  in  16-bit  words  and  the  storage 
capacity  is  65,536  words  of  RAM  [Ref  20].  Data  words  can  be 
written  into  the  RAM  at  rates  of  up  to  800  Khz.  The  data  are 
extracted  from  the  RAM  into  the  HP9000  RAM  at  rates  of  up  to 
30  KHz.  The  difference  in  data  rates  does  not  limit  the  ZOC- 


14  DAS  process.  The  DAS  program  is  designed  to  collect  and 
store  all  raw  pressure  data  on  the  Memory  Card  for  each 
acquisition  cycle  before  any  data  are  transferred  to  the 
HP9000. 
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f3)  Counter/Totalizer  Card  ^HP69775A 


The  Counter  Card  is  use  in  conjunction  with 
the  Timer/Pacer  Card  to  count  the  number  of  events  that  occur 
during  a  specified  data  collection  cycle.  A  trigger  signal 
from  the  Timer/Pacer  Card  provides  the  signal  pulse  to  step 
the  Counter  Card's  integer  "count -up"  fxinction.  The  Counter 
Card  has  two  counting  modes  that  count  at  rates  of  up  to  1  Mhz 
[Ref.  15  and  Ref.  21].  The  mode  used  in  the  ZOC-14  DAS 
process  counts  from  -32768  to  0.  This  capability  allows  1023 
samples  per  port  of  data,  or  1023x32  events  for  a  maximum  of 
32736  total  data  points  per  run. 

The  Counter  Card  provides  the  count  value  at 
the  card's  Edge  Connector  (Figure  22”)  as  an  External  Count 
Output.  The  output  is  a  16-bit  number,  which  is  the  count 
value  as  the  card  is  counting.  Five  of  the  sixteen  bits  (00 
through  04)  are  used  to  drive  the  ZOC  address  value  (bits  AO- 
A4)  through  the  Auxiliary  I/O  Logic  Interface  Device 
(Figure  6) . 

(4)  Timer/Pacer  Card  rHP69736A^ 

The  Pacer  Card  is  a  square  wave  pulse 
generator  with  a  programmable  pulse  width  feature.  The  pulse 
width  is  programmable  down  to  one  micro  second  duration  or  a 


®  Figure  22  is  figure  3-5  in  Ref.  21. 
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on«  MHz  square  wava'.  Tha  Pacar  Card  provides  the  trigger  for 
the  A/D  Card  and  timing  step  trigger  for  the  Counter  Card. 

Sa _ Multiproqrammer  Configuration 

(11  ZQC«14  Integration 

The  ZOC  address  format  and  the  Counter  Card's 
External  Counter  Output  are  the  common  link  that  interface  the 
two  devices.  The  Counter  Card's  coiint-up  feature  is  used  to 
control  the  ZOC  port  address.  Starting  at  "-32",  for  which 
the  binary  equivalent  is  "OOOOO"  at  the  card  edge,  the  card 
counts  up  to  zero.  Since  00000  is  the  binary  number  which  is 
required  to  set  the  ZOC  address  to  port  number  "1",  the 


'  Refer  to  Ref.  15  and  Ref.  22  for  details  on  the 
HP69736A. 
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counting  process  steps  the  ZOC  from  port  1  to  port  32.  The 
covmt-up  process  realizes  the  following  sequence: 

decimal  count  binary  count  ZOC  port  address 

00000  01 

00001  02 

00010  03 

•  •  • 

11110  31 

mil  32 

Initiating  the  co\int-up  from  '•-64 •'  results  in  two  scanning 
passes  through  the  32  port  ZOC-14  since  only  the  last  five 
bits  are  identified  in  the  ZOC  address.  Selection  of  the 
count-up  value  determines  the  number  of  scans  through  all  the 
ZOC's  ports. 

The  Counter  Card's  external  output  is  set  to 
0. 0-0.5  volt  for  "logic  low"  and  to  2. 0-5.0  volt  for  "logic 
high"  [Ref.  21,  page  1-2].  The  ZOC  address  bits  (A0-A4  in 
Figure  10)  require  an  open  collector  Transistor-Transistor- 
Logic  (TTL)  driver  to  provide  a  ground  "low"  and  an  open 
"high"  signal.  The  Auxiliary  I/O  Logic  Interface  Device 
(Figure  23)  was  designed  to  interface  the  HP69775A  with  the 
ZOC.  Figure  24  is  the  electrical  schematic  of  the  device. 
The  TTL  7404  is  powered  by  a  5  volt  regulator  [Ref.  23].  The 
regulator  receives  15  VDC  power  from  the  Counter  Card's 
external  edge  connector. 


-32 

-31 

-29 

-02 

-01 
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(2^  I/O  Card  Slot  Configuration 

The  current  configuration  of  the  I/O  cards  and 
HP6944A  provides  the  capability  to  collect  pressure  data  from 
up  to  three  ZOC-14  modules.  Figure  25  illustrates  the  I/O 
card  configuration  and  wiring  to  support  the  full  20C-14  DAS. 


Figure  25  HP6944A  I/O  Card  Configuration  Diagram 


Figure  26  shows  the  ZOC-14  DAS  (not  including  the  CALSYS2000) 
with  one  ZOC-14  module  and  all  electrical  lines  connected. 


The  HP6944A  has  a  power  limitation  determined 
by  the  built-in  power  supplies.  Table  I  illustrates  the 
HP6944A  power  supply  availability  and  the  I/O  card  power 
requirements.  The  HP6944A  provides  one  5  volt,  one  12  volt 
and  three  18  volt  power  supplies.  The  maximum  amperage 
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Figura  26  ZOC-14  Data  Acquisition  System  (less  CALSYS2000) 


ratings  are  shown  in  Table  I.  The  power  required  by  the  I/O 
cards  are  shown  in  amperes.  The  upper  value  in  the  table  is 
the  rating  per  card.  For  the  HP69791A  and  HP69759A  cards,  the 
second  value  is  the  total  rating  for  three  cards  of  each  type 
(which  are  required  for  three  ZOC  modules) .  The  total 
amperage  required  for  the  three  HP69759A  cards  exceeded  the 
capacity  of  a  single  18  volt  power  supply.  Therefore,  the 
first  HP69759A  card  receives  its  power  from  the  first  18  volt 
power  supply.  The  second  and  third  HP69759A  cards  receive 
their  power  from  the  second  18  volt  power  supply,  from  which 
they  draw  a  total  of  0.8  amperes.  The  HP69759A  cards  were  set 
by  the  factory  to  draw  power  from  the  first  18  volt  power 


Teible  I  HP6944A  Power  Supply  Allocation 


Device 

Power 

HP6944A 

+5V 
16.  OA 
(1) 

Cards 

Power 

HP69791A 

3.6A 
10. 8A 

HP69759A 

0.7A 

HP69759A 

0.7A 

HP69759A 

0.7A 

HP69736A 

0.75A 

HP69775A 

0.75A 

TOTAL 

14. 4A 

+12V 

-12V 

+18V 

2.0A 

2.0A 

0.85A 

(1) 

(1) 

(3) 

0.75A  I  0.12AI  0.15A  (1)0. 12A 


(1) 0. 52A 

(2) 0. 80A 


-18V 

0.4A 

(3) 


(1) 0.4A 

(1) 0.075A 

(2) 0.4A 

(2)0.075A 

(2)0. 4A 

(2) 0.075A 

(1)0.150A 


(1)  0.225A 

(2) 0.150A 


supply.  Access  to  the  second  18  volt  power  supply  required 
alterations  to  be  made  to  the  Power  Supply  Jxjmpers  for  the 
second  and  third  HP69759A  cards  [Ref.  19,  page  3-1]. 
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C.  ZOC-14  DAS  Software  Description 

1 .  General  Overview 

Hewlett  Packard's  BASIC  5.13  program  language  is 
utilized  by  the  HP9000.  Code  is  written  in  this  language  to 
communicate  with  the  various  data  acquisition  devices,  process 
data  and  store  the  data  to  disk,  and  to  output  results  on  a 
printer  or  plotter.  The  HP6944A,  a  central  component  of  the 
ZOC-14  DAS,  is  a  relatively  complex  device  which  can  perform 
numerous  functions  depending  on  how  it  is  configured.  The  use 
of  the  HP6944A  here  required  the  generation  of  a  unique 
software  package  in  BASIC  that  integrated  the  HP6944A  internal 
processor  with  the  configuration  of  I/O  cards  selected  here. 
The  HP14753A  Computer  Aided  Test  (CAT)  Programming  Package 
provided  the  means  to  generate  the  software  for  that 
interface . 

2.  Data  Acquisition  Program 

a.  HP14753A  CAT  ProgyaiB  Package 

The  HP14753A  CAT  Programming  Package 
(Figure  27) [Ref.  15]  is  software  (and  documentation)  required 
to  operate  the  HP6944A  and  the  associated  I/O  cards.  The 
programmer  uses  the  Hewlett  Packard  provided  skeleton  CAT 
example  program  to  develop  a  tailored  application  program  to 
perform  specific  processes.  The  ZOC-14  DAS  appli  ation 
program,  was  developed  using  the  CAT  Programming  Package,  to 
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Figure  27  HP14753A  CAT  Programming  Package 


perform  ZOC  data  collection,  reduction,  and  storage  titled 
’'SCAN_2OC_05'»  (Appendix  A,  Figure  A17) . 

The  CAT  programming  package  provides  the 
capability  of  integrating  selected  I/O  cards  into  a  unique 
function  that  combines  the  cards’  capabilities  into  one 
function.  Two  particular  applications  used  here  combined  the 
A/D  and  Memory  Cards  into  a  ’’Buffer"  function,  and  the  Pacer 
and  Counter  Cards  into  a  "Timer"  function. 

The  Buffer  function  performs  the  task  of 
collecting  analog  data  at  a  collection  rate  controlled  by  an 
external  trigger  device,  converts  the  analog  data  to  digital 
format,  and  temporarily  stores  the  data.  The  Buffer  function 
allows  the  high  speed  data  collection  rate  of  500  KHz,  which 
is  only  limited  by  the  A/D  conversion  rate.  Figure  28  is  a 
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schematic  of  the  wiring  that  links  the  A/D  and  Memory  Cards 
together  through  the  HP1417A  Chaining  Cable  (Figure  21) . 


VOLTAGE 
I  SIGNAL 


1  TRIGGER 
hSGNAL 
J  FROM 
TIMER 


Figure  28  Buffered  A/D  Function  Schematic 

The  Timer  function  provides  a  square  wave  trigger 
pulse  of  a  specified  pulse  width  and  a  specified  number  of 
repetitions.  The  pulse  width  determines  the  data  collection 
rate.  In  the  present  application,  the  repetition  number 
divided  by  32,  the  number  of  ports  on  the  ZOC-14,  determines 
the  number  of  scans  the  ZOCs  undergo.  The  repetition  number 
is  therefore  always  a  multiple  of  32.  Figure  29  is  the 
schematic  of  the  wiring  that  links  the  Counter  and  Pacer  Cards 
together.  The  edge  connectors  and  cables  which  were  made  to 
implement  the  wiring  shown  in  Figure  29,  can  be  seen  in 


Print-outs  of  the  ZOC-14  DAS  program  Configuration 
File  are  listed  in  Figure  Al®.  [Note  that  the  names  listed 
in  Figure  A1  are  varizdsles  used  by  the  program  SCAN_ZOC_05 .  ] 
b.  DAS  Program  Design 

fH  Program  Design  Features 

The  ZOC-14  DAS  Program  SCAN_ZOC_05 
incorporated  several  design  features  intended  to  obtain  a 
user-friendly  data,  collection  program.  The  program 

e  has  full  control  of  the  ZOCs  and  CALSYS2000  as  interfaced 
with  the  HP9000  and  HP6944A 

♦  utilizes  the  Zero  Operate  Calibrate  principle  for  data 
collection  from  the  ZOCs 

♦  uses  keyboard  fiinction  keys  to  allow  selection  of  various 
operations  within  the  program 

♦  creates  and  identifies  data  files  automatically  based  on 
the  type  of  data,  date,  and  run  number 

♦  offers  data  file  storage  on  hard  and  floppy  disk  drives. 

Three  different  data  files  are  used  when 
acquiring  data  from  each  ZOC-14.  Implementation  of  the  Zero, 
Operate  and  Calibrate  procedure  required  the  data  acquisition 
process  to 

♦  collect  and  store  raw  pressure  data  from  the  ZOCs 


®  Reference  15  provides  details  on  Configuration  File 
creation  and  alterations. 
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#  collect  and  store  calibration  pressure  data  from  the  ZOCs 
and  corresponding  applied  pressure  standard  data  from  the 
CALMOD  2000 

e  reduce  the  raw  pressure  date  using  calibration  curves  and 
store  the  reduced  pressure  data. 

The  program  uses  BOAT  type  files  with  Integer 
and  Real  nvunber  formats^°.  The  raw  data  file  Is  In  Integer 
(2-byte)  format,  with  each  record  corresponding  to  an  output 
voltage  value. 

The  calibration  file  uses  a  Real  number  (8- 

byte)  format  storing  data  from  a  33  row  by  11  column  array^^. 

Each  row  (1-32)  corresponds  to  a  ZOC  Port.  The  Zero  (0)  row 

contains  ZOC-specific  parameters.  Columns  4-10  in  the  Zero 

row  contains  pressure  values  measured  by  the  CALMOD  Pressure 

« 

Standard  for  each  of  the  seven  calibration  settings.  Columns 
4-10  (rows  1-32)  contain  voltages  output  by  the  ZOC  for  each 
of  the  calibration  pressures  applied  through  the  CAL  and  REF 
manifolds.  Columns  0-3  (rows  1-32)  contain  calibration  curve 
fit  coefficients  for  a  third  order  polynomial.  These 
coefficients  are  derived  using  the  Least  Squares  numerical 
curve  fit  method  using  the  recorded  voltages  (rows  1-32) 
plotted  against  the  applied  (standard)  calibration  pressures 
(row  zero) .  Each  row  in  the  array  corresponds  to  a  record  in 
the  calibration  data  file  consisting  of  8x33  bytes. 


Refer  to  Ref.  6,  chp  7,  for  details  and  advantages  of 
BOAT  format  files  compared  to  ASCII  files. 

“  Refer  to  Figure  A17,  lines  2350  to  2440. 
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The  reduced  data  file  uses  a  Real  number  (8- 
byte)  format,  storing  data  from  a  n~row  by  33  column  array. 
Each  row  corresponds  to  one  scan  of  a  ZOC  The  first  column 
(0)  stores  the  nth-scan  number.  Columns  1-32  correspond  to 
the  output  of  each  ZOC  port  converted  to  pressure  units 
(Inches  of  mercury) .  Each  array  row  occupies  a  record  of  8x33 
bytes  in  the  reduced  data  file. 

Figure  30  provides  a  sample  listing  of  the 
data  files  created  in  acquiring  data  using  three  (3)  ZOCs  in 
one  (1)  acquisition  cycle. 


!. 700. 0.1 

OOLOHK  LABEL: 

DATA 

riLB  RAMI  PM 

TYPE 

BEC/rajI 

BTTB/BEC 

AOOREBS 

DATE  TIHB 

2H1203161 « 

BOAT 

07 

2 

302 

16-»ta7*82  14:34 

ZHZ209101 

BOAT 

07 

2 

304 

16-HiiT-e2  14  .-94 

1M3209161 

BOAT 

07 

2 

306 

lE-ttar-OE  14:34 

2C1209161 

BOAT 

33 

•6 

SOB 

l9-««r-02  14:93 

ZC2203161 

BOAT 

33 

66 

611 

16-M«y-92  14:33 

ZC3209161 

BOAT 

33 

06 

624 

19-M«y-92  14:33 

0(1203161 

BOAT 

3 

26* 

637 

16-M»y-92  14:33 

21(2203161 

BOAT 

3 

264 

642 

16-H«y-92  14:33 

21(3203161 

BOAT 

3 

264 

847 

19-M«y-92  14:35 

Figure  30  ZOC-14  DAS  Data  File  Listing 


Each  data  file  name  uses  the  format, 

<ZW><ZOC  #><Date><Run  #> 

"ZW"  identifies  raw  data  files.  ("ZC"  Identifies  calibration 
data  files,  and  "ZR”  identifies  reduced  data  files) .  The  ZOC 

#  is  for  ZOCs  1-3.  The  format  for  the  date  is  YMMDD.  The  Run 

#  has  values  1-99.  Hence,  for  example,  the  file  ZR1205161 
holds  reduced  data  for  ZOC  #1  collected  on  May  16,  1992  during 
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R\an  #1.  The  REC/FILE  column  shows  three  records,  identifying 
that  three  scans  of  data  for  the  32  ports  were  collected.  The 
BYTE/REC  column  identifies  264  bytes  for  each  record  (scan) , 
corresponding  to  the  8x33  bytes  for  the  row  format  addressed 
in  the  previous  paragraph. 

f3)  Program  Functional  Flow  Process 

The  program  SCAN_20C_05  follows  the  functional 
flow  process  illustrated  in  Figure  A2  through  Figure  A16  in 
Appendix  A.  The  program  relies  on  extensive  use  of 
subroutines  to  maintain  program  architectural  simplicity 
through  use  of  the  CALL  statement.  The  option  to  use  one  to 
three  ZOCs  requires  only  the  repetitious  use  of  the  different 
subroutines . 

Fxinction  keys  are  used  for  program  control. 
The  main  program  is  segmented  into  blocks.  Each  block  or  set 
of  blocks  is  initiated  by  a  function  key  (ie.  fl  through  f8) . 
The  "GOTO  Hold"  statement  executes  a  continuous  loop  sequence 
which  is  only  interrupted  by  a  function  key  selection,  thus 
providing  the  mechanism  for  program  control. 

The  storing  of  raw  pressure  data  and 
calibration  data  onto  the  hard  drive  allows  repeated  data 
collection  runs.  The  data  reduction  routine  is  function  key 
selected  and  can  be  performed  after  each  data  collection  run, 
or  at  any  later  time.  The  program  prompts  the  user  for  data 
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file  naune  information  when  data  reduction  is  not  selected 
immediately  following  a  data  collection  run. 

C.  DAS  ProoraTii  nse 

HP9000  Operation  and  Rudimentary  Commands 

The  HP9000  is  the  controlling  unit  for  the 
ZOC-14  DAS.  Its  operation  is  similar  to  that  of  a  desk  top 
computer  system  with  no  complex  initialization  or  ”boot-up'’ 
process . 

The  HP9000  has  its  own  built-in  boot-up 
routine  as  an  integral  part  of  BASIC  [Ref.  4].  The  boot-up 
process  addresses  the  "SYSBSl. HP-UX”  file  on  the  hard  drive's 
root  directory  for  loading  various  fxinction  drivers  called 
"Binaries”.  Integration  of  the  HP14753A  CAT  programming 
package  in  the  present  work  required  modification  to  the 
SYSB51  file  to  provide  sufficient  RAM  space  to  operate  the  CAT 
programs  . 

The  boot-up  process  is  initiated  when  power  is 
applied  to  the  HP9000.  The  CRT  begins  displaying  a  series  of 
screens  during  the  boot-up.  With  the  modification  which  was 
made  to  the  SYSB51  file,  completion  of  the  boot-up  process  now 
gives  the  screen  display  shown  in  Figure  31,  which  is 
generated  by  the  AUTOST  program  file.  This  screen,  referred 


Refer  to  Ref.  4,  chp  5  and  Ref.  15,  pg.  1-5,  for 
details  on  the  SYSB51  file  modifications. 
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to  as  the  "Main  Menu",  provides  a  function  key  selection  menu 
to 


Selection  of  the  "F8"  function  key  clears  the 
screen  and  places  the  user  in  the  root  directory.  At  any  time 
when  the  term  "idle"  is  displayed  in  the  lower  right  corner  of 
the  CRT  screen,  there  are  no  programs  in  execution,  and  the 
user  can  make  keyboard  command  entries. 

There  are  five  essential,  rudimentary  commands 
that  the  user  needs  to  know  to  use  BASIC^^.  These  commands 
are  LOAD,  RUN,  CAT,  MSI,  and  RE-S  IRE.  The  LOAD  command  will 
load  the  program  which  is  named  between  quotes  into  the  HF9000 
RAM.  RUN  will  execute  the  program  currently  in  RAM.  CAT  will 


access  the  operations  available  on  the  HP9000. 


BPgoOO  Sarlas  300  Compufcar  Data  Acquisition  Systar. 

Salaet  Function  Kay 


Turboeharsar  Lab  (*)  Pl 
Transonle  Coaiprataar  Lab  <*)  F2 
Turbina  Daaign  PrograaM  (*)  F3 
Hilti-Progcaanar  Opactlon  (HP694AA)  F4 
Mork  dlraetocy  <*)  PS 
Backup  Filaa  PO 
BPgoOO  Program  Listing  and  Infonnatlon  F7 
Exit  Manu  Fg 


Nota:  Blnarlas  raqulrad  tor  BF147S3A  CAT  progrms  ara  loadad 
to  oparata  tha  BP6B44A  Multi  ■‘prograimar . 

Additional  blnarlaa  ara  loadad  with  aalaction  (*). 

It  Error  2  occurs:  Maoory  ovacflow;  taboot  systam  using 
STSBOOT  stataaiant  and  raaalaet  daslrad  dlraetocy. 


Usar  1  Caps  Coanand 

TURBO  0CMPRE8S  OESIGH  BP14733A  WORK  BACKUP  PROGRAM  EXIT 
CRAROER  LAB  CAT  OIX  LISTINGS  MENU  • 

Figure  31  KP9000  Initial  CRT  Screen  Display 


It  is  recommended  that  the  user  reviews  Ref.  13  and 
14  for  an  operational  understanding  of  BASIC. 
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list  to  the  CRT  screen  all  the  files  on  the  current  storage 
drive  and  directory.  MSI  ("MASS  STORAGE  IS")  will  select  a 
directory  and/or  drive  to  be  what  is  named  between  quotes. 
The  RE-STORE  command  copies  the  program  in  the  RAM  to  the  file 
on  the  currently  named  MSI.  Caution  must  be  applied  when 
using  the  RE-STORE  command.  This  command  will  write  over  any 
previously  existing  program  with  the  same  name,  resulting  in 
the  loss  of  the  previous  program. 

Return  to  the  Main  Menu  is  possible  from  any 
directory  on  the  hard  drive.  Located  on  the  root  directory  of 
the  hard  drive  is  a  program  called  "RETURN_MAIN" .  Load  the 
program  by  typing  the  following  commands: 

♦  LOAD  "/RETURN_MAIN",  followed  by  the  <Enter>  key 

♦  RUN,  followed  by  the  <Enter>  key 

The  "/"  character  identifies  the  root  directory.  The  above 
two  steps  apply  for  loading  and  executing  any  program. 

(2)  Operating  the  zoc-14  DAS  Program 

The  ZOC-14  DAS  Program  uses  function  keys  and 
selective  keyboard  data  entries.  The  following  steps  should 
be  followed  to  operate  the  ZOC-14  DAS. 

1.  Main  Menu:  Depress  function  key  F4  (Figure  31)  to 
call-up  the  HP  Multi-programmer  Operating  Menu. 

2.  HP6944A  Operation  Menu:  ’  Depress  function  key  FI  to 
call-up  the  ZOC-14  Modules  Menu. 
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3.  Zoc  Electronic  Pressure  Module  Operation  Menu: 
Figure  32  is  displayed. 


Zoc  EXoctronlc  Pressure  Module  Operation  Menu 

Salccfc  Function  Key 

Sean  1-3  ZOC-H  Modulaa  (32  porta  aa) 

FI 

Raad  raduead  data  from  ZOC-14  modula 

F2 

Plot  raduead  data  fron  ZOC- 14  modula 

F3 

Read  CALSYS  2000  calibration  pressurea 

F4 

Raad  tabulated  calibration  data 

F3 

Plot  Calibration  data 

F8 

HP8944A  Main  Menu 

F7 

Exit  Hanu 

F8 

User  1 

Capa  Coanand 

SCAH  1-3  READ  ZOC  PLOT  ZOC  READ 

TABULATE  PLOT  CAL  BPS944A  EXIT 

ZOCS  DATA  DATA  CALSYSZO 

CAL  DATA  DATA 

NEHU 

MERU  • 

Figure  32  Zoc  Electronic  Pressure  Module  Operation 
Menu 


4.  Check:  Ensure  that  the  CALSYS2000,  ZOC  Enclosure  and 
HP6944A  are  properly  connected  and  energized. 

5.  Check:  Ensure  that  the  nitrogen  gas  supply  is 
connected  to  the  CALSYS2000  and  about  90  psi  is  set 
on  the  regulator. 

6.  CALSYSZOOO  Regulators:  Set  the  High,  Medium,  and  Low 
Pressure  regulators  on  the  CALSYS2000.  The  three 
pressure  values  should  be  evenly  distributed  within 
the  span  of  the  ZOC's  positive  pressure  rated  range. 
Precise  settings  are  not  critical.  Since  50  psid 
and  15  psid  ZOCs  are  used  presently,  set  the 
regulators  between  0-30.6  inches  of  mercury  to  avoid 
over  pressurizing  the  15  psid  ZOCs. 

7.  CAIiSYS2000  Verification:  Select  function  key  F4 

(Figure  32)  to  cycle  the  CALSYS2000  and  verify  the 
pressure  settings.  (Mote:  This  should  be  done 

whenever  the  CALSYS2000  is  first  energized  to  clear 
the  RS-232C  of  noise)  .  Completion  of  this  step 
returns  the  HP9000  to  the  ZOC  operation  menu. 


8. 


Load  SCAN_ZOC_05:  Select  function  key  FI  (SCAN 

ZOCS)  from  the  ZOC  operation  menu  to  initiate  ZOC 
scanning  program  SCAN_ZOC_05. 

9.  Introduction:  A  series  of  screen  displays  occur 

while  SCAN_ZOC_05  is  loading.  The  "Introduction" 
screen  (Figure  33)  is  displayed  indicating  that  the 
program  is  waiting  for  a  function  key  input. 


Introduction.  FxogxaB  SCAII_ZOC_OS: 

-  Scans  1-3  Zoc-14  Modulas  almultanaously  (32  pressuca  sensing  ports  each). 

-  Uses  Zaro  Operate  Calibrate  (ZOC)  principal; 

-  Collects  raw  pressure  data  (Zaro  Operate) 

-  Collacta  calibration  data  (Calibrate) 

-  Radueas  and  atorea  data  on  salactsd  hard  or  floppy  drive. 

-  CAISTSZOOO  Calibration  Module  uaed  for  the  reference  pressure  standard. 

-  Raw  praaaura  data  reduced  using  calibration  data  froo  CALSYSZOOO 
and  Zoca  in  the  calibration  ooda. 

Input  variables:  Bard  and  Floppy  drive  for  data  storage 
Seople  frequency  per  port  (1-30,000  Bz) 

Samples  per  Fort  (1-1021) 

HiaBfaet  of  Zoca  and  their  capacity 

Output  files;  Raw  data  •>  ZW(Zoe#)(Date  nM>D)(Ruii#) 

Calibration  •>  ZC(Zoc#)(0ata  nM>D)(Run#) 

Reduced  data  “»  ZR(Zoc#)(Date  yMC0)(Run#) 

Select  F2  key  for  Kay  Menu,  F3  for  systeai  inputs,  or  F8  for  data  reduction. 


User  1  Caps  Cotimand 

Intro  Kty  Set-up  Data  Collect  Reduce  List  Exit 

Menu  Frapa  Data  Data  Copy  * 

Figure  33  SCAN_ZOC_05  Introduction  Screen 


10.  Set-up  Selection:  Select  function  key  F3  (Set-up)  to 
initialize  the  program.  The  "Set-up"  screen  will  be 
displayed.  (Note,  selection  of  F4  or  F5  at  this  time 
results  in  an  error  message  and  asks  for  re¬ 
selection.  ) 

11.  Set-up  Inputs;  The  user  will  be  prompted  for  the 
designated  data  storage  drive  (select  700, 0,1  if 
equipped)^*,  data  acquisition  rate,  the  number  of 


The  program  operates  on  multi-partitioned  hard  drives. 
TPL's  HP9153C  Disk  Drive  has  two  partitions.  Drive  ;,700  is 
the  main  drive  and  is  in  HFS  format  with  10  Mbytes  of  space. 
Drive  :, 7 00, 0,1  is  the  second  "DATA"  drive  and  is  in  LIF 
format  with  30  Mbytes  of  space.  LIF  format  has  faster  data 
transfer  rates. 
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samples  per  port  (scans)  of  data  to  be  taken,  and 
the  number  of  ZOCs  to  be  used.  For  each  ZOC,  the 
user  will  be  prompted  for  the  CALMOD  to  be  assigned 
to  the  ZOC.  Currently  only  one  CALMOD  is  installed. 
Enter  1  for  all  three  ZOCs.  When  two  CALMODs  are 
installed,  enter  1  or  2  to  the  applicable  ZOC 
according  to  the  CALMOD  regulator  settings. 

12.  Set-up  Display:  The  System  Set-up  screen 

(Figure  34)  is  updated  as  entries  are  made.  The 
program  searches  the  data  drive  for  data  files  and 
creates  the  next  sequential  data  file  name  for  the 
current  date. 


Syatan  Sat'up. 

Data  acquisition  cats: 

10000  Hz 

Nunfaac  at  aamplaa  pat 

port;  3 

Huaibor  at  Zoca  to  ba  aeannad:  3 

Total  taw  data  acquisition  tlsia;  .0093  sac. 

Total  calibration  data  acquisition  tlsM;  10.31SS  sac.  ■ 

Data  atocasa  diao  ,700,0,1 

Data  will  ba  atocad  In 

tba  following  fllaa  baglnnlng  with  Run  #  1 

Raw  data  flla: 

ZW1204291 

Calibration  data  flla: 

ZC120«291 

Raduead  data  Tlla: 

ZR1204291 

Raw  data  flla; 

2W2204291 

Calibration  data  flla; 

ZC2204291 

Raduead  data  flla; 

ZR2204291 

Raw  data  flla; 

ZW3204291 

Calibration  data  flla: 

203204291 

Raduead  data  flla; 

ZR3204291 

Figure  34  SCAN_ZOC_05  System  Set-up  Screen 


13.  Data  Collection  Preparations:  Select  function  key 
F4  (Data  Preps)  for  data  collection  preparations 
(Figure  35) . 

14.  Collect  Data:  Select  function  key  F5  (Collect  data) 
to  begin  data  collection.  The  CRT  will  display  the 
results  of  the  collection  as  illustrated  in 
Figure  36. 

15.  Data  Reduction:  To  reduce  data,  select  function  key 
F6  (Reduce  Data) .  To  make  changes  to  the  Set-up, 
select  function*  key  F3 .  To  conduct  another  raw  data 
collection  run,  select  function  key  F4.  To  exit  the 


55 


program,  select  function  key  F8.  Selection  of  F6 
results  in  the  display  illustrated  in  Figure  37. 

16.  List/Copy  Files:  Selection  of  function  key  F7  (List 
Files)  will  list  all  current  data  files  on  the 
storage  drive  as  illustrated  in  Figure  38.  The  user 


Uata  Collaetlon  Fraparatlon. 

Chack  Hat: 

-  HlScan  CALSyS2000  cm-llna 

-  Calibrator  supply  lina  valva  is  OPEN  (on  back  of  Riscan) 

-  CALSyS2000  (Nitrogsn)  prassura  sourea  at  90  psi 


Saiaet  PS  to  atart  data  aquiaition 


Ussr  1  Caps  Coanand 

latre  Kay  Sat-up  Data  Colloet  Raduea  List  Exit 

Manu  Praps  Data  Data  Filas  * 

Figure  35  SCAN_20C_05  Data  Preparations  Screen 


will  be  prompted  if  he  wants  to  store  all  the  listed 
files  to  the  floppy  drive  700,1.  Selection  of 
"Yea"  results  in  the  over-writing  of  the  old  files 
with  the  same  file  name. 

17.  Exit:  Select,  function  key  F8  (Exit)  to  exit  the 
SCAN_ZOC_05  program  and  return  to  the  ZOC  operation 
menu  (Figure  32) . 


3.  Data  Analysis  and  Auxiliary  ZOC-14  Programs 
a.  Utility  Programs 

The  ZOC  operation  menu  (Figure  32)  displays  several 
utility  programs  which  were  written  for  system  analysis  and 
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Collactlng  xaw  prassur*  data. 
Raw  data  collactlon  cooiplata. 


Raw  prasauxa  data;  Run#  1  ,  Zoc#  1  ,  atoraga  dclva  flla  ZH1204291 : , 700 , 0 , 1 

Raw  prassura  data:  Run#  1  ,  Zoc#  2  ,  atoraga  drive  flla  ZW2204291: ,700 , 0, 1 

Raw  praaaura  data;  Run#  1  ,  Zoc#  3  ,  storage  drive  fila  ZW3204291 ; , 700 , 0 , 1 

Collactlng  calibration  data. 

Calibration  data;  Run#  1  ,  Zoc#  1  ,  storage  drive  fila  ZC1204291: , 700,0, 1 

Calibration  data:  Run#  1  ,  Zoc#  2  ,  storage  drive  fila  ZC220i291: , 700,0, 1 

Calibration  data:  Run#  1  ,  Zoe#  3  ,  storage  drive  fila  ZC3204291: ,700,0, 1 

Calibration  data  collection  coa^plata. 

***  Saeure  Calibrator  prassura  valve  to  eonsarva  Nitrogen  *** 

CALSYS2000  Calibration  modes  and  pressures  (in  Eg); 


Mods 

Zoe  #1 

Zoe  #2 

Zoe  #3 

NH 

-30.131A 

-30.1544 

-30.1344 

HM 

-17.9978 

-17.9978 

-17.9978 

NL 

-7.3819 

-7.3819 

-7.3819 

ZO 

.003A 

.0034 

.0034 

PL 

7.A00S 

7 . 4003 

7.4005 

FM 

18.0194 

18.0194 

18.0194 

PH 

30.2072 

30.2072 

30.2072 

Salaet  F4  for  another  data  run,  or  F8  to  reduce  data 


Deer  1  Capa  Coonand 

Intro  Key  Set*up  Data  Collect  Reduce  Liat  Exit 

Menu  Frepa  Data  Data  Filea  * 


Figxire  36  SCAN_ZOC_05  Daca  Collection  Screen 


data  display.  These  utility  programs,  listed  in  Appendix  A, 
are  tailored  for  use  with  the  SCAN_ZOC_05  data  file 
formats”. 

b.  ZOC-14  utility  Program  Application  Examples 
An  air  source  regulated  to  30.0  inches  of  mercury 
gauge  was  used  to  verify  the  acqpiisition  hardware  and 
software.’  Application  programs  were  written  to  analyse  the 
results. 


Data  files  created  from  previous  versions  of  the 
SCAN_ZOC  programs  listed  in  Appendix  B  are  not  compatible  with 
the  listed  utility  programs. 


Calibration  and  Raw  data  raductlon  and  storaga. 

Currant  ttlaa  on  atoraga  disc  700, 0,1  for  data  20429 

ZW1204291  ZC1204291 

ZW2204291  ZC2204291 

ZW3204291  ZC3204291 

Data  raductlon;  Run#  1  ,  Zoc#  1 

Calibration  data  raduead  and  tranafarrad  to  ZC1204291 
Raw  data  raduead  and  tranafarrad  to  ZR1204291 

Data  raductlon:  Run#  1  ,  Zoc#  2 

Calibration  data  raduead  and  tranafarrad  to  ZC2204291 
Raw  data  raduead  and  tranafarrad  to  ZR22042fll 

Data  raductlon:  Run#  1  ,  Zoc#  3 

Calibration  data  raduead  and  tranafarrad  to  ZC3204291 
Raw  data  raduead  and  tranafarrad  to  ZR3204291 

Salaet  F3  ralnltiallza  aat-up  for  data  collactlon,  or  TS  to  Exit 


Intro 

Kay 

Sat-up  Data 

Collaet 

Usar  1 

Raduea  Hat 

Conntsnd 

Exit 

Manu 

Prapa 

Data 

Data  Fllaa 

* 

Figure  37  SCAN_ZOC_05  Data  Reduction  Screen 


tlat  Raw,  Calibration  and  Raduead  data  fllaa. 
Data  atoraga  drive  naaa  ;, 700, 0,1 

Currant  fllaa  on  atoraga  diae  for  data  20*29 

ZH120429t  ZC1204291  ZR1204291 

ZM2204291  ZC2204291  ZR2204291 

ZW3204291  ZC3204291  ZR3204291 


Salaet  F2 

to  return 

to  menu. 

or  F8  to 

Exit 

Intro 

Key 

Menu 

Set'up 

Data 

Prepe 

Collect 

Date 

User  1 

Reduce  List 

Data  Files 

Coinnand 

Exit 

• 

Figure  38  SCAN_Z0C_05  List  Files  Screen 


The  program  ''READ_ZOC"  (Figure  A18)  is  selected  by 
function  key  F2  (READ  DATA).  The  program's  results  are 
illustrated  in  Figure  39  for  ZOC  #3  (rated  at  15  psid) .  The 
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Parlod  batwaan  sanplaa  (sac);  .0001 
Saiapla  collaetlon  rata  (Hx);  10000 

Humbax  of  aanplaa  par  port:  3 

Langth  of  data  run  (aac):  .0033 

Data  Tabulation  for  Port  #  1  from  fila;  ZI13204291 

Sainpla  Tina  (aac)  Pxaaaura  (Hs-) 

1  0.00000  29.62346 

2  .00320  29.36423 

3  .00640  20.62346 

Data  Tabulation  for  Poet  #  2  from  flXa:  ZR3204291 

Sampla  Tima  (aac)  Praaaura  (Bg.) 

1  .00010  29.62771 

2  .00330  29.62771 

3  .00630  29.62771 

Entax  port  nianbar  for  data  (0-Exlt): 


Uaar  1  Capa  Coimand 

EDIT  Contlnua  RUH  SCRAT(3  LOAD  LOAD  BIH  LIST  BIN  RE-STORE 


Figure  39  R£AD_ZOC  Data  Results 


displayed  pressure  is  the  reduced  pressure  value  calculated 
from  the  SCAN_ZOC_05  program.  The  output  pressure  is  derived 
using  the  recorded  transducer  output  voltage  and  the  curve 
fitted  to  the  calibration  data  for  the  identified  port.  The 
output  values  are  seen  to  be  within  1.3%  of  the  applied 
pressure . 


The  program  ”PLOT_DATA"  (Figure  A19)  is  selected  by 
function  key  F3  (PLOT  DATA) .  The  results  from  ZOC  #3  are 
displayed  in  Figure  40  and  Figure  41. 

The  program  ''CAL_READ_PR1"  (Figure  A20)  is  selected  by 
function  key  F4  (READ  CALSYS20) .  The  results  are  displayed  in 
Figure  42. 

The  program  ''TABULATE_ZOC”  (Figure  A21)  is  selected  by 
function  key  F5  (TABULATE  CAL  DAT) .  This  program  displays  the 
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PEosram  plots  rsduesd  data  fton  flla  ZR32a4291 

Statistics  for  Zoc  #  3 

Period  bstwaan  saniplas  (msae);  .1 
Sampls  collaetlon  rats  (Hs):  10000 

Runbac  of  saniplas  par  port;  3 
Length  of  data  run  (inaae):  9.5 


Oats  point  can  be  plotted  as  a  continuous  line,  or  squaras. 

Rota;  Wait  for  snsbol  In  lower  right  comer  of  CRT  to  change 

to  a  before  pressing  <ShlftxOtanp  Graph> 


User  1  Caps  Connand 

EDIT  Continue  RUH  SCRATCH  LOAD  LOAD  BIR  LIST  SIR  RE-STORE 

••  *•  » •*  ^ 


Figure  40  PLOT_DATA  Alpha  Screen  Display 


Figure  41  PLOT_DATA  Graphic  Screen  Display 


first  three  reduced  data  samples  of  selected  ports,  and  the 
associated  calibration  data  for  each  selected  port.  Figure  43 
displays  the  results  for  ZOC  #3. 
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Program;  CAL_REAO  FRl 


Thla  program  aaquantlally  aats  tha  CAL2000  calibration 
modaa  and  raada  tha  eorraapondlng  intamal  Praaaura  Standard 
for  that  moda. 


PH 

IM 

PL 

ZO 

ML 

NM 

HH 


Poaltlva 
Poaltiva 
Poaltlva 
CALl-t)  & 
Ragativa 
Hagatlva 
Ragativa 


high  ranga  prassura  to  CAL(>) 
mid  ranga  praaaura  to  CALC-t) 
low  ranga  praaaura  to  CAH*) 
REP!*')  eonnaetad  togathar 
low  ranga  praaaura  to  S£F(-) 
aU.d  ranga  praaaura  to  REF(-) 
high  ranga  praaaura  to  REF(~) 


CAL2000:  Calibration  modaa  and  praaauraa. 
Moda  Praaaura  <ln  Bg) 


HH 

NM 

RL 

20 

PL 

PM 

PR 


30.1606 
17.9943 
7.3788 
.0034 
7 . 3912 
16.0194 
30.2072 


Figure  42  CAL_R£A0_PR1  Results 


Program  tabulataa  Zoe  praaauraa  and  calibration  data  from 
tha  SCAM_ZOC_03.  program. 

Iladuead  Data  Tabulation  at  a  aampla  rata  of  10000  Ha 

Port  Sampla  1  Saaqpla  1  Sampla  3 

1  29.623  29.S64  29.623 

2  29.628  29.628  29.628 

3  -.414  -.414  -.331 

4  -.493  -.423  -.425 

Calibration  Data  Tabulation  for  Zoc#  3 


Praaaura  voltage  raadlnga; 


Port 

RB 

NM 

RL 

ZO 

PL 

PM 

PH 

0  -30.134 

-17.998 

-7.382 

.003 

7.401 

18.019 

30.207 

1 

-2.194 

-1.310 

-.321 

.040 

.723 

1.688 

2.704 

2 

-2.394 

-1.689 

-.830 

-.278 

.430 

1.478 

2.349 

3 

-1.833 

-1.018 

-.230 

.272 

.909 

1.820 

2.770 

4 

-1.770 

-1.038 

-.362 

.101 

.673 

1.485 

2.320 

Calibration  polynomial  coafflclanta  for  Zoc#  3 

Port  AO  A1  A2  A3 

1  -1.00116186204  11.8933386742  -.43556269823*  .10653*21092* 

2  2.43870376346  11.1093966033  -.349715337703  .09*0*5*333066 

3  -3.9666833367*  12.823*266663  -.5231877536*7  .119575*69008 

*  -1.98202140047  14.2260022322  -.6*5728820628  .20262038018 

Figure  43  TABULATE_ZOC  Results 


The  program  ''IjS_PLOT”  (Figure  A22)  is  selected  by 
function  key  F6  (PLOT  CAL  DATA) .  Figure  44  displays  the 


calibration  data  with  voltage  verses  CALMOD  calibration 


Laaat  Squara  Plot  af  CPLZBOB  Calibration  (Parti  1  I 


Figure  44  LS^PLOT  Graphic  Results 
pressure  (squares) ,  and  the  curve  fitted  to  the  collected  data 
by  the  least  squares  aethod  (continuous  line) .  The  results 
are  from  port  #1  on  ZOC  #3. 
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Ill .  DISCUSSION 


A.  Upgraded  Capabilities 

The  ZOC-14  DAS  provides  the  capability  to  perform  fully 
automatic  high-speed  pressure  data  aquisition,  data  storage 
and  reduction.  For  the  Gas  Dynamics  Laboratory  (GDL) ,  this 
upgraded  capability  allows  very  short  run-times  in  the 
transonic  and  supersonic  wind  tunnels,  resulting  in  greatly 
reduced  electrical  power  consumption  by  the  laboratories  air 
compressors  and  the  elimination  of  delays  between  wind  tunnel 
tests.  Additionally,  wind  tunnel  models  will  have  a  longer 
useful  life.  The  shorter  mn  times  will  reduce  model  erosion 
and  the  net  effect  is  a  reduced  cost  to  operate  the  wind 
tunnels  and  to  maintain  models. 

The  HP9000  now  serves  as  the  controller  for  the  DAS's  in 
each  of  the  three  laboratories  comprising  TPL  and  GDL.  Each 
DAS  includes  Hewlett  Packard  HP-IB  compatible  instruments  and 
the  HG-78K  Scanivalve  Controller.  Low  speed  pressure  data 
acquisition,  using  the  HG-78K  to  operate  the  Scanivalve  rotary 
port  pressure  sensing  unit,  is  retained.  However,  for 
turbomachinery  measurements,  phase-lock  data  acquisition  using 
TPL's  Digital  Programmable  Timing  Device  (or  PACER) ,  can  not 
yet  be  performed  using  the  HP9000  to  replace  the  HPIOOO  [Ref. 
24].  TPL's  PACER  is  electrically  hard-wired  into  the  HPIOOO 
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as  an  I/O  device.  However,  the  integration  of  the  HP9000  and 
HF6944A,  as  demonstrated  in  the  ZOC-14  DAS,  is  known  to 
provide  the  interface  capability  to  operate  the  PACER. 

Temperature  and  low-speed  pressure  measurement  data 
acquisition  and  processing  using  the  HP9000  has  been 
demonstrated  in  turbocharger  performance  mapping  laboratories 
and  transonic  wind  tunnel  thesis  research  [Ref.  25]^®.  The 
HP9000  was  shown  to  provide  improved  data  storage  handling  and 
display  capabilities  (over  the  HPIOOO  system)  using  the  HP9153 
series  hard/floppy  disk  drive  and  HP7475A  plotter. 

Development  of  the  ZOC-14  DAS  served  to  identify  the 
programming  and  integration  requirements,  and  the  capabilities 
of  the  HP9000  and  HP6944A  as  a  subsystem.  The  HP9000/HP6944A 
as  a  controller  and  data  acquisition  silb-system  provides  to 
TPL  and  GDL  the  potential  for  extension  in  several  prospective 
applications. 

B.  ZOC-14  DAS  Outstanding  Issues 

The  ZOC-14  DAS  development  is  not  fully  complete.  Several 
hardware,  software,  and  performance  issues  need-  to  be 
resolved,  namely; 

♦  Hardware:  The  CALSYS2000  is  using  only  one  CALMOD  to 

provide  calibration  pressures  for  a  specific  ZOC  operating 
range.  A  second  CALMOD  is  required. 


Appendix  D,  Figures  D3-D6  are  HP9000  controlled 
Turbocharger  Performance  Mapping  and  data  display  programs. 
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♦  Hardware;  It  was  not  possible  to  set  the  "PURGE”  mode  to 
clear  pressure  sensing  lines  using  nitrogen  gas  supply. 


♦  Software:  SCAN  ZOC_05  uses  a  "set"  1.5  sec  time  delay  to 
account  for  calibration  pressure  stabilization  during  the 
calibration  process,  vice  a  technique  to  monitor  the 
calibration  pressure  and  digitize  when  found  to  be  stable. 

♦  Performance:  The  maximtin  data  sampling  rate  acheivable 
with  the  ZOC  modules  needs  to  be  verified. 

♦  Performance:  A  data  error  analysis  needs  to  be  carried 
out. 

e  Performance:  The  calibration  of  the  CALMOD  Pressure 

Standard  needs  to  be  verified. 

Some  el2d3oration  of  each  of  these  issues  follows. 

The  use  of  the  present  one  CALMOO  results  in  only  the  15 
psid  ZOC  being  calibrated  over  its  full  pressure  range  when  15 
psld  and  50  psid  ZOCs  are  used  in  the  DAS.  The  50  psid  ZOC 
must  be  used  without  the  15  psid  ZOCs  if  they  are  to  be 
calibrated  and  used  over  their  full  range.  This  would  reduce 
the  pressure  data  measurement  availability  from  96  (3x32)  to 
32  ports.  Installation  of  a  second  CALMOD  would  allow 
independent  calibration  of  the  15  psid  and  50  psid  ZOC 
modules.  The  program  SCAN_ZOC_05  incorporates  the  steps  to 
use  two  CALMODs,  and  requires  no  modifications. 

The  PURGE  mode  is  set  by  providing  control  gas  through 
both  the  Px  and  CAL  control  lines  as  illustrated  in  Figure 
8^^.  Currently,  the  required  control  gas  pressure  is  not 
provided  by  the  PSC  when  the  appropriate  command  is  sent  from 


Refer  to  Ref.  17,  dwg  17750,  PNEUMATIC  DIAGRAM  OF  PSC. 
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the  HP9000  to  the  CALMOD.  The  commands  to  set  the  PURGE  mode 
are  "aEC  8  Y”  followed  by  "aEC  10  N”  to  set  the  solenoids  in 
the  PSC. 

The  calibration  process  requires  a  stabilization  time 
delay  to  elapse  between  the  setting  of  a  calibration  mode  and 
the  seunpling  of  the  calibration  pressure  by  the  Pressure 
Standard.  The  best  method  to  determine  the  required  time 
delay  is  to  continuously  sample  the  calibration  pressure  until 
the  pressure  stabilizes,  then  record  the  calibration  pressure. 
The  program  SCAN_ZOC_05  uses  an  empirically  derived  1.5  sec 
"wait  period"  between  the  calibration  mode  selections  and  the 
pressure  sampling.  This  time  value  was  determined  using  a 
modified  CAL_R£A0__PR1  program,  stopwatch  and  oscilloscope. 
CAL_R£AD_PR1  was  modified  with  a  PAUSE  statement  to  allow 
observation  of  the  ZOC  voltage  signal  on  the  oscilloscope. 
When  the  signal  appeared  to  stabilize  on  the  oscilloscope,  the 
CONTINUE  key  (F2)  was  depressed  to  seunple  the  pressure  and 
select  the  next  mode.  The  times  for  six  complete  mode 
selections  were  recorded.  The  average  time  was  found  to  be 
1.34  seconds  between  depressions  of  the  CONTINUE  key.  The 
value  of  1.5  seconds  was  selected  as  a  conservative  value  to 
use  for  the  time  delay. 

The  maximvim  sample  data  collection  rate  has  not  yet  been 
realized  with  the  ZOC-14  DAS.  Preliminary  observations 
revealed  a  random  fall-off  in  pressure  values  when  the  "input" 
data  sampling  rate  was  greater  than  50  KHz.  A  more  careful 
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analysis  of  the  sampling  rate  is  required  to  validate  the 
current  50  KHz  value  and  to  determine  the  maximum  dat?. 
sampling  rate. 

An  error  analysis  of  the  ZOC-14  DAS  is  required  to 
determine  the  accuracy  of  the  data  collection  and  reduction 
process.  The  HP67959A  A/D  Cards  have  a  documented  resolution 
of  five  milli-volts  for  their  factory  set  configuration  as 
installed  in  the  HP6944A.  The  Pressure  Standard  mounted  in 
the  CALMOD  has  accuracy  specifications  docxjmented  in  Reference 
17.  The  ZOCs  have  measurement  accuracy  specifications 
docTimented  in  Reference  16.  The  numerical  Least-Squares  curve 
fitting  routine  introduces  a  so -far  vinspecified  \mcertainty. 
The  reduced  pressure  readings  provided  in  Figure  39  compared 
to  the  30.0  Inches  of  mercury  source  pressure,  provide  only  a 
single  example  of  the  pressure  measurement  uncertainty  given 
by  the  DAS^®.  Derivation  of  the  overall  system  xincertainty 
needs  careful  attention. 

The  Pressure  Standard’s  calibration  has  not  been  verified 
since  it's  delivery.  Calibration  verification  is  essential 
prior  to  accepting  pressure  measurement  data.  Accordingly, 
the  CALMOD  calibration  coefficients,  derived  from  the 
calibration  verification,  need  to  be  changed  on  the  CALMOD 


^®  Uncertainty  in  the  source  pressure  of  30.0  inches  of 
mercury  as  measured  by  the  TPL  Calibration  Pressure  Manometer 
needs  to  be  considered  in  the  uncertainty  analysis. 
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EPROM.  Reference  17  provides  the  details  to  conduct  Pressure 
Standard  calibration  and  coefficient  changes  on  the  EPROM. 

C.  Potential  Extensions  and  other  Applications 

The  HP9000/HP6944A  subsystem  provides  the  hardware 
features  necessary  to  integrate  computer  control  of 
experiments  with  the  data  acquisition  process.  Three 
immediate  applications  using  the  HP9000/HP6944A  are  identified 
here: 


♦  The  TPL  PACER  can  be  interfaced  with  the  HP9000/HP6944A  to 
provide  phase-locked  data  acquisition  capability^^. 

♦  Kulite  pressure  probe  measurements  can  be  acquired  using 
the  analog  signal  from  the  conditioning  amplifier.  The 
signal  would  be  routed  directly  to  the  Buffer  A/D  Function 
input  connector,  using  the  Timer  Function  to  set  the  data 
collection  rate  and  nvuober  of  seunples. 

♦  GDL's  transonic  and  supersonic  wind  tunnels  can  be 

operated  with  fully  automated  data  acquisition  and 
experiment  control  systems .  The  tiinnel '  s  manual  back¬ 

pressure  valve,  and  electro-servo  controlled  translating 
survey  probe  can  be  operated  by  the  HP9000/HP6944A  to  give 
fully  automated  control. 


Preliminary  TPL  PACER  interfacing  techniques  have  been 
examined  but  not  yet  documented. 
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IV.  CONCLDSIONS 


The  DAS  upgrade  and  extension  which  is  reported  here  has 
included  the  adoption  of  the  HP9000  as  a  controller  for 
existing  HP-IB  compatible  DAS  instmmentation,  the  generation 
of  acquisition  and  reduction  software  for  the  existing  system, 
and  the  development  of  a  new  high-speed  pressure  data 
acquisition  capadaility.  The  new  high-speed  system  involved  an 
integration  of  the  HP9000  with  the  HP6944A  Multiprogrammer  and 
with  Scanivalves ' s  ZOC-14  and  CALSYS2000  systems.  In  the 
present  accoxint,  emphasis  has  been  placed  on  reporting  the 
development  of  the  20C-14  DAS.  The  hardware  and  software  for 
the  system  have  been  successfully  demonstrated.  It  has  been 
shown  that  the  use  of  the  system  in  the  Gas  Dynamics 
Laboratory  can  reduce  wind  tunnel  test  times  by  a  factor  of 
20. 

Six  issues  concerning  the  present  hardware  and  software 
have  been  identified  as  needing  to  be  resolved,  and  immediate 
applications  of  the  HP9000/HP6944A  system  to  Kulite  and  Phase- 
Locked  data  acquisition,  probe  survey  and  tunnel  condition 
control,  have  been  identified.  The  programs  and  experience 
reported  in  the  present  document  can  serve  to  guide  these 
extensions. 

The  key  to  developing  the  capabilities  resident  in  the 
HP9000/HP6944A  system  is  a  thorough  familiarity  with  HP  BASIC 
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and  HP14753A  CAT  programming.  Therefore,  the  recommendation 
is  made  that  formal  instruction  in  this  language  and 
programming  techniques  be  provided  before  the  recommended 
extensions  of  the  system  are  attempted. 
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APPENDIX  A.  ZOC-14  PROGRAMS 


Appendix  A  is  a  compilation  of  pertinent  information  and 
programs  used  to  operate  the  ZOC-14  DAS. 

Figure  A1  is  the  ZOC-14  DAS  program  configuration  file, 
'•ZOC_CONFIG_05” ,  print-out  for  the  I/O  Cards  installed  in  the 
HP6944A.  The  print-out  is  produced  using  the  CAT  program 
"DOCUMENT”.  The  DOCUMENT  program  is  located  on  the  "/HP6944A" 
directory  (Figure  Dl) .  2OC_CONFIG_05  is  a  BOAT  file  located 
in  the  /HP6944A  directory. 

Figures  A2  through  A16  are  parts  of  the  SCAN_ZOC_05 
program  flow  chart.  Figure  A17  is  the  SCAN_20C__05  program 
listing  with  program-specific  remarks  anotated  after  the  " ! " 
character. 

Figures  a18  through  A22  are  ZOC-14  DAS  utility  programs 
located  on  the  /HP6944A  directory. 

Figure  A23  is  the  program  used  to  display  the  ZOC 
operation  menu,  and  define  the  function  keys  to  provide  menu 
item  selection  by  function  keys. 
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26  Apr  1992  16:53:12 


Fll*  Nam*:  TOC  CONFIG  05 
Usar  ID; 

Llat  o{  Hamas; 

Buffsrl  Adel 

Adc2  Bu£fsr3 

Tlmar 


Configuration  tor  Buffarl 
Modal  Buffar 

aaa*a***aa*****aa*****a*****a**a**a********i 

Multlprcgraomar  Typa  . . .  RF69SAA  or  HP6944A 
Intarfaca  Salaet  Coda  . .  29 

Frama  .  0 

Slot  .  0 

Initial  Moda  .  FIFO 

Initial  Lockout  .  Off 

Tlmaout  .  10 

Maaiory  Typa _  69791A 

No  of  Eztandars  ...  0 
Raf  Rag  1  . .  0 
Raf  Rag  2  ...  0 
Buffar  Dlraetlon  . .  In 
Front  End  Typa  . .  e9739A 
A/D  Namaa:  1  .  Add 

2  .  Nona 

3  .  Nona 

4  .  Nona 
3  .  Nona 
8  .  Nona 

7  .  Nona 

8  *.  Nona 


Buffar2 

Adc3 


i*«a««««a*a**a*a***aaaaaa*< 

Configuration  for  Adel 
Modal  697S9A  500  KHz  A/D 


Multlprogranmar  lypa  . . .  BF69S4A  or  HF6944A 
Intarfaca  Salaet  Coda  . .  29 

Frama  .  0 

Slot  .  7 

Full-acala  Ranga  .  +-10.24  volts 

Initial  Intamal  Ranga  ...  10 

Ranga  Sourca  .  Intamal 

Scannar  .  Nona 

Tlmaout  .  10 

Data  Convarslon  .  Standard 

Intamal  Trigger  .  Dlaablad 

Eztamal  Trigger  .  Enabled 

Trigger  Moda  .  Multiple 

Trigger  Polarity  .  Negative 

Lockout  Polarity  .  Disabled 

Master  Output  Enable  .  Enabled 

Mux  Output  Control  .  Disabled 

External  Output  Enable  ....  Disabled 

Gate  .  Multiple 

Return  Data  With  .  Sign  Extension 


r  Page  1  ) 
ZOC  CONFIG  05 


Figure  A1  ZOC-14  Configuration  File 
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Configuration  for  Buffar2 
Modal  Buffar 


Multiprogranmar  Typa  . . .  BF69S4A  or  8P6944A 
Zntarfaea  Salact  Coda  . .  29 

Fma  .  0 

Slot  .  2 

Initial  Moda  .  FIFO 

Initial  Lockout  .  Off 

TiOMOUt .  10 

Manory  typa  ....  89791A 
No  of  Eztandars  ...  0 
Raf  Rag  1  . .  0 
Raf  Rag  2  ...  0 
Buffar  Diraction  . .  In 
Front  End  Typo  . .  697S9A 
A/0  Nanaa:  1  .  Ade2 

2  .  Nona 

3  .  Nona 

4  .  Nona 

5  .  Nona 
8  .  Nona 

7  .  Nona 

8  .  Nona 


aaaaaaaaaaa*a*aaa*aaaa*a*aa**aa*aa******aa*****«** 

Configuration  for  Ado2 
Modal  89730A  SOO  KBs  A/D 

aaaaaaaaaaaaaaaaa*aaaaaaaaaaaaaaaaaaa**aa**a*a*«aa 

MuUlprogranMr  Typa  . . .  HF8034A  or  BF6B44A 
Intarfaea  Salact  Coda  . .  29 

FraM  .  0 

Slot  .  9 

Full-seala  Ranga  .  >*10.24  volta 

Initial  Internal  Ranga  ...  10 

Ranga  Source  .  Intamal 

Scanner  .  Nona 

Tloaout  .  10 

Data  Convaraion  .  Standard 

Intamal  Trigger  .  Oisablad 

Eztamal  Trigger  .  Enabled 

Trigger  Moda  .  Multiple 

Trigger  Polarity  .  Nagativa 

Lockout  Polarity  .  Oiaablad 

Maatar  Output  Enabla  .  Enabled 

Muz  Output  Control  .  Oiaablad 

Eztamal  Output  Enabla  ....  Oisablad 

Gate  Moda .  Multiple 

Return  Data  With  .  Sign  Extension 


C  Page  2  I 
ZOC  CONFIG  03 


Figure  A1  (cont)  ZOC-14  Configuration  File 
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Configuration  for  BufforS 
Modal  Buffar 


Miltlprogramnar  Typa  . . .  HF6934A  or  HP69A4A 
Intarfaea  Salact  Coda  . .  29 

Frama  .  0 

Slot  .  * 

Initial  Moda  .  FIFO 

Initial  Lockout  .  Off 

TlBMOUt .  10 

Maoory  Type  _  69791A 

Ho  of  Eztandars  ...  0 
Raf  Rag  1  . .  0 
Raf  Rag  2  ...  0 
Buffar  Dlraetion  . .  In 
Front  End  Typo  . .  697S9A 
A/D  Haoaa:  1  .  Ade3 

2  .  Hona 

3  .  Hona 
k  .  Hona 

5  .  Hona 

6  .  Hona 

7  .  Hona 

8  .  Hona 


>**•*••****•*************1 

Configuration  for  Ade3 
Medal  8B7S9A  300  KBs  A/0 


HultlprograMar  Typa  . . .  HP6BS4A  or  HF8g44A 
Intarfaea  Salaet  Coda  . .  29 

FraM  .  0 

Slot  .  11 

Full'aeala  Ranga  .  >-10.2*  volts 

Initial  Intamal  Ranga  ...  10 

Ranga  Sourea  .  Intamal 

Scannar  .  Hona 

Tloaout  .  10 


Data  Coovarslon  .  Standard 

Intamal  Trlggar  .  Dlsablod 

Eztamal  Trlggar  .  Enablad 

Trlggar  Medo  .  Ttiltlpla 

Trlggar  Polarity  .  Hsgatlva 

Lockout  Polarity  .  Dlsablod 

Maatar  Output  Enabla  .  Enablad 

Nn  Output  Control  .  Dlaablod 

Extamal  Output  Enabla  ....  Dlsablod 

Gata  Moda .  Multiple 

Return  Data  With  .  Sign  Cxtanalon 


[  Page  3  I 
ZOC  CONFIG  05 


Figure  A1  (cont)  ZOC-14  Configuration  File 
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Configuration  for  Tioar 
Modal  Tlmar 


Multlprograonar  Typa  . . .  HF6934A  or  RF69a4A 
Intarfaca  Salaet  Coda  . .  29 
Tlfflar-Facar  Frama  . .  0 
Tiaar-Faear  Slot  . .  13 

Countax  Fraaa  .  0 

Countar  Slot .  13 

Countar  slxa  ...  13  Blta 

Timaout  .  10 

Data  Convaralon  .  Standard 

Run  Tlaa  Llolt  Chacklng  ...  Ho 

Initial  Farlod  .  2.E'6 

Initial  Count  .  0 

Digital  Out  Controllar  . .  Ho 


(  Page  4  1 
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Figure  A1  (cont)  ZOC-14  Configuration  File 
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Figure  A2  Program; 


Start-up  and  Initialization 
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Figure  A2  (cont)  Program;  Start-up  and  Initialization 
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Figure  A4  Program:  Set-up  Parameters 
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f5 


Figure  A6  Program:  Data  Collection 
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Exit  loop 


Collect  cal  dat: 


FOR-NEXT 
loop  for 
1-3  20Cs 


CALL  Cal2000 


CALL  Scan  zocs 


NEXT 


Store  data  from  Memory 
into  array  Cal 


Exit  loop 


FOR-NEXT 
loop  for 
1-3  20CS 


CALL  Cal  dat 


NEXT 


Calibration  data  collection  complete 


Figure  A6  (cont)  Program:  Data  Collection 
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Figure  A6  (cont)  Program:  Data  Collection 
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igure  A7  Program:  Data  Reduction  and  Storage 


Exit  loop 


FOR-NEXT 
loop  for 
1-3  ZOCs 


CALL  File  scan 


NEXT 


Display  current  data  files  on  storage  drive 


Copy 
files  to 
Floppy?^ 


Copy  data  files  from 
Hard  drive  to  Floppy 


nwxa 

Figure  AS  Program:  Data  File  Listing  and  Storage 
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Figure  A9  Program:  Exit  /  Subprogram:  FNDate$ 
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Figure  AlO  Subprogram:  File 


Figure  AlO  (cent)  Subprogram:  File 
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Figure  All  Subprogram:  Scan_zocs 
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Figure  A12  Subprogram:  Raw_dat 
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Figure  A13  Subprogram:  Cal2000 
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Figure  A14  Subprogram:  Cal_dat 
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Figure  A15  Subprogram:  Raw_reci_dat 
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Figure  A15  (cont)  Subprogram:  Raw_red_dat 
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Figure  A16  Subprogram:  File_scan 
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Figure  A16  (cont)  Subprogram:  File_scan 
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10  I  Program:  SCAN_ZOC_05 

20  !  Dascrlptlon:  Application  program  to  oporata  RPE944A  collecting  pressure 

30  !  readings  from  1-3  ZOC-14  32  port  modules  using  the  CALSYS 

AO  !  2000  to  provide  calibration  data,  reduce  raw  pressure  data 

SO  !  and  store  data  to  the  hard  drive. 

SO  !  Hardware;  (1}  HF69A4A  Multi-processors 
70  !  -  (3)  300  kHs  A/D  Cards  (HP697S9A) 

80  !  -  (3)  High  Speed  Memory  Cards  (HP69791A) 

90  t  -  <1>  Timer /Pacer  Card  (BF6g736A) 

100  !  -  (1)  Counter  Card  (HF6977SA) 

110  I  (1)  HlScan  CALSYS  2000  Calibration  Module 

120  I  (3)  ZOC-IA  32  port  Electronic  Prasaure  Scanning  Modules 

130  I  Notes:  1.  This  program  utilises  up  to  three  (3)  ZOC  Modules  storing  data 

lAO  I  of  each  20C  Into  a  separata  buffer  Memory  System  (BP69791A) . 

130  t  2.  CCH  /Names/  line  and  BOAT  file  ZOC_COHFIG_03  must  match  for 

160  !  this  program  to  operate. 

170  !  3.  CALSyS2000  requires  a  short  period  to  stabilise  before  reading 

ISO  I  the  pressure  valves.  Tbs  Pauss_for  statement  sets  (line  470)  this 

190  I  wait  period  In  seconds.  Adjustment  of  the  variable  my  be  required 

200  I  as  additional  ZOCa  are  Integrated  Into  the  Data  Acquisition  System. 

210  !  4.  CALSYS2000  currently  configured  for  one  (1)  calibrator.  This 

220  !  program  la  wrlttan  to  operate  one  (1)  or  two  (2)  calibrators. 

230  ! 

240  I  Buffar  Maanry:  63336  18-blt  data  words  In  BP89791A  per  system 

230  I  Timer:  Maximum  32767  counts  for  one  BFS9773A  (32*1023-32736  data  points) 

260  I  Max  spaed  of  HP  syatam  la  Parlod-0 . 000002  sac.  or  300  liBz. 

270  I 

260  COM  /lasacom/  INTEGER  X( 1:1106) 

290  COM  /Iaaa_hoap/  lasaJhaap(lOOO) 

300  COM  /Names/  Buffed, Adel, Buffac2,Ade2, Buffers, Adc3, Timer 
310  Canflgura<‘nenu  off", "ZOC  CONFIG  03") 

320  IConfi8ura("Ask  iM","Z0C  CONFIG  03") 

330  I 

340  Key  label;  ! - KEY  LABEL  ASSIGNMENT - - - 

330  ! 

360  KEY  LABELS  ON 

370  ON  KEY  1  LABEL  "Intro"  GOTO  Intro 

380  OH  KEY  2  LABEL  "Key  Menu"  GOTO  Key_menu 

390  OH  KEY  3  LABEL  "Set-up"  GOTO  Input 

400  ON  KEY  4  LABEL  "Data  Praps"  GOTO  Data_prep 

410  OH  KEY  3  LABEL  "Collect  Data"  GOTO  Collaet_data 

420  OH  KEY  6  LABEL  "Reduce  Data"  GOTO  Reduce  data 

430  ON  KEY  7  LABEL  "List  Copy"  GOTO  View  tiles 

440  ON  KEY  8  LABEL  "Exit"  GOTO  Finish 

430  ! 

460  Initlallro_spae;  ! -  ASSIGN  MEMORY  SFACE  - - 

470  Fauss_for-l . 3  I  Halt  tlsM  for  CALSYSSOOO  stabilization 

480  !  COM  assigns  calibration  data  array  for  32  Zoc  ports  and  standard  values. 

490  COM  /Zoc_dat/  HEAL  Zoe_eall(33 , 10)  BUFFER. Zoc_cal2(33 . 10 )  BUFFER. Zoe_cal3 (33 . 10 )  BUFFER 
300  COM  /Stats/  REAL  Pulse, Sampla_number , Pauae_for, INTEGER  Cal_mod_id(3 ) , DateS t 6] ,Run 
310  COM  /Files/  FllaS(l:99, 1:9) [14] .Data  drlveSClll  (Data  file  &  storage  drive. 

320  ! 

330  DIM  Coiinand_modaS(l;7)[2] 

340  Coiiinand_mode$<l)”"NH” 

330  Coinmand_modeS(2)-"NM" 

360  Command_modaS(3)-"NL" 

370  CoinBand_modeS(4)-”ZO” 

380  Coaniand_modaS(3)-"FL" 

390  Coinmand_modeS(6)-"FM" 

600  Command  modeS(7)-"FH" 

610  ! 

620  Run-0 

630  0ata_reducsd-0 

640  ! 

630  Intro:  ! - INTRODUCTION  SCREEN - - - 
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860  t 

670  CLEAR  SCREEN 

680  PRINT  "Introduction.  Program  SCAN_ZOC_OS:" 

690  PRINT 

700  PRINT  "  -  Seans  1-3  Zoc-IA  Modulas  almultanaoualy  (32  prassura  aanalng  ports  each) 

710  PRINT  "  -  Dsas  Zaro  Oparats  Callbrata  <Z0C)  principal:" 

720  PRINT  "  -  Collects  raw  prasaura  data  (Zaro  Operate )" 

730  PRINT  "  -  Collects  calibration  data  (Callbrata)" 

7A0  PRINT  -  Rsducas  and  storas  data  on  salactad  hard  or  floppy  drive." 

730  PRINT  "  -  CALSYS2000  Calibration  Module  used  for  the  rafsranea  pressure  standard." 

760  PRINT  "  -  Raw  prasaurs  data  reduead  using  calibration  data  from  CALSYS2000” 

770  PRINT  "  and  Zoos  In  ths  calibration  a»de." 

780  PRINT 

790  PRINT  "Input  variables:  Bard  and  Floppy  drive  for  data  storage" 

600  PRINT  "  Sasqjle  frequency  per  port  (1-30,000  Rx)" 

810  PRINT  "  Samples  per  Port  (1-1023)" 

820  PRINT  "  Number  of  Zocs  and  their  capacity" 

830  PRINT 

8A0  I  Note:  BPS  Files  limited  to  lA  characters,  LIF  Files  limited  to  10  char. 

830  I  Output  files  have  a  length  of  10  characters  to  support  LIF  forrat. 

860  !  Bard  drive  ;,700  la  BFS  format,  ;, 700, 0,1  la  LIF  format. 

870  I  Floppy  drive  :, 700,1  la  LIF  format. 

880  PRINT  "Output  tllaa:  Raw  data  •>  ZH(Zoe#)(Dats  YMMDD) (Run#)" 

890  PRINT  "  Calibration  »  ZC(Zoe#)(Data  nM)D)(Run#)" 

900  PRINT  "  Rsducad  data  »  ZR(Zoc#)(Dato  YmDD)(Run#)" 

910  DISP  "Select  F2  key  for  Key  Menu,  F3  for  systam  Inputs,  or  F6  for  data  reduction." 
920  Bold:  I 
930  GOTO  Bold 
040  I 

930  Kay  manu:  J - KEY  MENU - - 

060  I  “ 

070  CLEAR  SCREEN 

980  PRINT  "20C-14  Oparatlng  Manu." 

900  PRINT 

1000  PRINT  "Function  Function  Key" 


1010 

PRINT 

1020 

PRINT 

•* 

Introduction 

FI' 

1030 

PRINT 

•* 

Operating  Manu 

F2 

1040 

PRINT 

H 

Systam  Set-up 

F3 

1030 

PRINT 

** 

Data  Collection  Preparation 

F4 

1060 

PRINT 

** 

Data  Collection 

F3' 

1070 

PRINT 

Data  Reduction 

F8' 

1080 

1090 

PRINT 

PRINT 

M 

List  Files  (Copy  fllaa  to  Floppy) 

F7' 

1100 

1110 

PRINT 

1 

«a 

Exit 

78' 

1120  GOTO  Bold 
1130  I 

1140  Input:! - INPUT  VARIABLES - - - — . 

1130  MAI  Zoc  call-  (0) 

1160  MAT  Zoc~cal2-  (0) 

1170  MAT  Zoc“oal3-  (0) 

1180  MAT  FllaS-  ("-") 

1190  DatsS-FNDataS(TIMEOATE) 

1200  I 

1210  CLEAR  SCREEN 

1220  PRINT  "Systam  Set-up." 

1230  PRINT 

1240  INPUT  "Select  Bard  drive  for  storing  data  (0w:,700  !•: , 700, 0 . 1)" , Drv 

1230  IF  DrvO  TBEN 

1260  Data  drlvaS-" ; . 700 , 0 , 0" 

1270  ELSE 

1280  Data_drlvaS-":,700,0,l" 

1290  END  if” 

1300  INPUT  "Enter  data  sampling  rata  (l-30kHz):",Hz 

Figure  A17  (cont)  ZOC-14  DAS  Program:  SCAN_ZOC_05 
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1310  PRINT  "Data  acquiaitlon  rata; “ ;TAB(30) ;Bz: "  Hz" 

1320  INPUT  "Nunibaz  of  aomplaa  par  port  (1-1023):  " ,Sampla_nutnbar 

1330  PRINT  "Nuoibar  of  aampLaa  par  port ; " ;TAB(30)  ;Saiiipla_nui9bar 

13t0  INPUT  "Nunbar  of  Zoe'a  eonnactad  to  Multl-programar" ,  Zoc_nuinbac 

1330  PRINT  "Ntafaar  of  Zoca  to  ba  aconnad: " ;TAB<30) ; Zoc_nuaibar 

1380  Cal_mod_ld(0)-Zoc_nuaibar 

1370  FOR  Zoe_caaa>l  TO  Zoc_nuinbar 

1380  SELECT  Zoc_caaa 

1390  CASE  1 

1400  Run>l 

1410  CALL  Flla(l) 

1420  INPUT  "Entar  Calibration  Modulo  nunibar  aat  for  Zoc  #1  (Entar  1  or  2):",Cal_iiiod_ld(l) 

1430  CASE  2 

1440  Run-1 

1430  CALL  Flla(2} 

1460  INPUT  "Entar  Calluration  Modulo  numbar  sot  for  Zoc  #2  (Entar  1  or  2) : "  ,Cal_niod_ld(2) 

1470  CASE  3 

1480  Run-1 

1480  CALL  Fll'>(3} 

1300  INPUT  "Fntor  Calibration  Modulo  nuadaor  aat  for  Zoc  #3  (Entar  1  or  2) ; " ,Cal_mod_ld(3) 

1310  END  SELECT 
1320  NEXT  Zoe  eaao 
1330  I 

1340  Porlod-l/Hz 

1330  Pulaa-Parlod/2  tPulso  lonsth  of  BF69736A  trlggor  algnal 

1380  I 

1370  PRINT  "Total  raw  data  acquiaitlon  tlBio:":TAB(30);Potlod*Saiaplo_nuaibor*31;"  aoc.” 

1380  PRINT  "Total  calibration  data  acquisition  tla»:";TAB(30);Potlod*3*31+(7*Pauao_for);"  sac." 
1300  PRINT 

1800  PRINT  "Data  storoga  disc  ->";0ata_drlvaS 

1810  PRINT  "Data  will  ba  atorad  In  tha  following  fllaa  baglnnlng  with  Run  #";Run 
1820  HUNT 

1830  rCR  I-l  TO  Zoe  nudkar 
1840  J-(I-l)»3 

1830  PRINT  "Raw  data  flla;  "  ;FllaS(Run. J4-1) 

1680  PRINT  "Calibration  data  flla;  " ;FllaS(Run, J+2) 

1670  PRINT  "Roducod  d> ta  flla:  ";FllaS(Run,J43) 

1680  PRINT 
1690  NEXT  I 
1700  ! 

1710  DISP  "Saloet  F4  koy  to  bagln  data  aqulaltlon" 

1720  GOTO  Hold 
1730  I 

1740  Datajrap:  I - PREPARE  FOR  DATA  COLLECTION - 

1730  CLEAR  SCaiEEN 

1760  PRINT  "Data  Collactlon  Praparatlon. " 

1770  PRINT 

1780  IF  Run-0  THEN 

1790  PRINT  "Program  not  Inltlallzod  for  data  colloctlon." 

1800  DISP  "Saloet  F3  to  initialize  Sat-up” 

1810  GOTO  Hold 

1820  END  IF 

1830  PRINT  "Chock  list:" 

1840  PRINT  "  -  BlScan  CALSYS2000  on- lino" 

1830  PRINT  "  -  CALHOD  supply  lino  valvo  ts  OPEN  (on  back  of  CALSYS2000)" 

1860  PRINT  ”  -  CALSYS2000  (Nltrogon)  prassurs  sourca  at  90  pal" 

1870  I 
1880  I 

1890  CONTROL  9,3:3  I  Sat  OTR  A  RTS  to  Active  for  CALSYS2000 

1900  OUTPUT  9;VAL3(l):"IC":CHR3(13);ENDt  Initialize  Calibrator  modulo  #1 
1910  OUTPUT  9:VAL3(2);"IC":CHRS(13);ENDr  Initialize  Calibrator  modulo  #2 
1920  WAIT  Pauaa_for  t  Allow  CALSYS2000  to  sat  Zocs 

1930  ! 

1940  DISP  "Salact  F3  to  start  data  aqulsltlon" 

1930  GOTO  Hold 

Figure  A17  (cont)  ZOC-14  DAS  Program:  SCAN_ZOC_05 
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1960  t 

1970  Coll*ct_data: ! -  COLLECT  DATA  - 

1960  IF  Run-0  THEH 

1990  PRIHT  "Frogm  not  Initlallzad  foz  data  collactlon." 

2000  DISF  "Salaet  F3  to  inltlallza  Sat-up" 

2010  GOTO  Hold 

2020  END  IF 
2Q30  CLEAR  SCREEN 
2040  PRINT 

2030  PRINT  "Collaetlng  zaw  pzaaaura  data." 

2060  Count-Saapla_ntaBbaz*32  I  Sat  Count  as  function  of  sainpla  nunbar 

2070  I  and  nunbar  of  port  caadlngs  (32)  on 

2060  t  Zoe  for  raw  data  collactlon. 

2090  CALL  Sc an_xoea (Count, Pulaa)  t  Collaet  raw  data  Into  Haaiorr  Systam 

2100  PRINT 

2110  PRINT  “Raw  data  collactlon  coaiplata.'* 

2120  BEEP 
2130  ! 

2140  Raw_data_zfar: ' - TRANSFER  RAW  DATA  FM  MEHORT  SYSTEM  TO  HARD  DISC - 

2130  PRINT 
2180  I 

2170  FOR  Zoo_eaaa-1  TO  Zoc_maBfaar  I  Collaet  raw  data,  raduca  data  and 

2160  SELECT  2oe_casa  I  and  atora  raduca  data  on  hard  drlva 

2190  CASE  1 

2200  CALL  Raw_dat(Buffarl,l) 

2210  CASE  2 

2220  IF  Run>l  THEN 

2230  Run-Run- 1 

2240  END  IF 

2230  CALL  Raw  dat(Buffar2,2) 

2280  CASE  3 

2270  IF  Riiii>l  THEN 

2280  Run-Run- 1 

2290  END  IF 

2300  CALL  Raw_dat(Bttffar3,3) 

2310  END  SELECT* 

2320  NEXT  Zoe.casa 
2330  1 

2340  Inltlal.cal:! - CALIBRATION  SET-UP - - - . 

2330  I  Calibration  data  array  for  aaeh  Zoe:  Zoc_cal_(33, 10) 

2380  !  Fomat; 

2370  !  For  ports  1-1  to  33 

2380  !  Row  0,  colusB  0;  Parlod 

2390  t  Row  0,  eoluon  1;  Saopls  nutabar 

2400  I  Row  0,  eoluan  2:  Zoe  # 

2410  I  Row  0,  eolim  3;  Calibrator  modulo  ID  (1-30  psl  2-13  psl) 

2420  I  Row  0: _ NHNMNLZOFLPMPN  (prassura  Hg.  ) 

2430  !  Row  1:  AO  A1  A2  A3  NH  NH  NL  ZO  PL  PM  FH  (LS  coaf.prass  volts) 

2440  !  LS  eoof  ara  Laast  Squaraa  curva  fit  eoof  foe  third  oedar  polynomial. 
2430  I 
2480  PRINT 

2470  PRINT  "Collacting  calibration  data." 

2480  REAL  CalK 1120) ,Cal2(1120) ,Cal3( 1120 ) !  Calibration  data  array 

2490  Count— 32*3  !  Sat  count  to  collaet  calibration  data 

2300  f 

2310  MAT  Zoc_call-  (0) 

2320  MAT  Zoe~eal2-  (0) 

2330  MAT  Zoe^calO-  (0) 

2340  Zoc_eall(0,0)-Parlod 
2330  Zoe  calKO,  l)-Saiopla_nunibac 
2360  Zoc2eall(0,2)-1 

2370  Zoc“eall(0,3)Cal_mod_ld(l) 

2380  Zac_cal2<0,0)-Parlod 
2390  Zoc_eal2(0, 1)-Sainpl8_nuniber 
2600  Zoc”cal2(0,2)-2 

Figure  A17  (cont)  ZOC-14  DAS  Program:  SCAN_ZOC_05 
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2810  Zoc_c«12<0,3)-Cal_iiiod_ld(2) 

2820  2oe~e«13(0.0)-P«rlod  ~ 

2830  Zoe_cal3(0, 1)-Sanpl«_nunibar 

28«0  Zoe3eal3(0,2)-3 

28S0  Zoc2eal3(0,3)-Cal_niod_ld(3) 

2880  I  ~ 

2870  CoUact_eal_dat: ! - COLLECT  RAM  CALIBRATIOH  DATA - - - 

2680  ! 

26S0  I  CoLlaet  raw  calibration  data  for  aach  CALSYS2000  sattlng 
2700  FOR  Indai^l  TO  7 

2710  CALL  Cal2000(CainBand_iDoda8<Indaz) ,  Indax) 

2720  CALL  Sean_xoea(Count,Fulaa) 

2730  FOR  Zoo_easa~l  TO  Zoe_ntaBbar 
2740  SELECT  Zoo  caaa 

2750  CASE  1 

2780  Input  rblocKBuffarl.CalK'l.ieo.andax-D^lSO+l) 

2770  CASE  2  “ 

2780  Input_rbloek  <  Buf f ar2 . Cal2 ( * ) . 160 , < Indax- 1 ) * 160+1 ) 

2790  CASE  3  ~ 

2800  Input  rblock(Buffar3,Cal3(*),160,(Indox-l)*160+l) 

2810  ERD  SELECT 

2820  NEXT  Zoe_eaaa 
2830  NEXT  Indax~ 

2840  I 

2830  I  Stora  eollactad  calibration  data 
2860  FOR  Zoe_ca8awl  TO  Zoc_nunibar 
2870  SELECT  Zoo  caaa 

2880  CASE  1 

2880  CALL  Cal.dat(Call(*),Zoe_eaU(*}} 

2900  CASE  2  * 

2910  CALL  Cal_dat(CaU(*),Zofl_caU(*)) 

2920  CASE  3  ~ 

2930  CALL  Cal  dab(Cal3(*),Zoe  eal3(*)) 

2940  END  select' 

2930  NEXT  Zoo.eaaa 
2980  ( 

2970  PRINT 

2980  PRINT  "Calibration  data  collactlon  eomplata.'' 

2990  BEEP 
3000  WAIT  .23 
3010  BEEF 

3020  OUTPUT  9;VALS(1};"IC";CBRS(13);END!  Inltlallxa  Calibrator  niodula  #1 
3030  OUTPUT  8;VALS(2);~IC'';CHRS(13);ENDI  Inltlallxa  Calibrator  nodula  #2 
3040  PRINT 

3030  PRINT  "**•  Saeura  Calibrator  praaaura  valva  to  eonaarva  Nltrogan  •••" 

3060  PRINT 

3070  PRINT  ’'CALSYS2000  Calibration  nodaa  and  praaauraa  (In  Hg);" 

3080  FmtlilMACE  / , 3X,K, lOX.K, lOX.K, lOX.K 

3090  PRINT  USING  Fmtl ; "Moda" , "Zoc  #l'."Zoc  #2","Zoc  #3” 

3100  FotZ.-IMAGE  6X,K,  lOX.  3D.  40, 8X,  3D.  40. 8X.3D .  40 
3110  FOR  I>4  TO  10 

3120  PRINT  USING  FintZ ; Coomand  tiiodaS(I-3) , Zoc_call(0 , 1 ) .  Zoc_cal2(0 , 1) ,  Zoc_cal3 ( 0 , 1 ) 
3130  NEXT  I 

3140  OISP  "Salact  F4  for  anothar  data  run,  or  FS  to  raduca  data" 

3130  GOTO  Bold 
3160  ! 

3170  Raduca_dnta: ! -  REDUCE  DATA  AND  STORE  OH  HARD  DRIVE  - - 

3180  I  Routlna  loads  raw  and  calibration  data  from  storage  drive,  reduces  the 
3190  !  data,  and  stores  the  data  to  the  storage  drive. 

3200  I 

3210  CLEAR  SCREEN 

3220  PRINT  "Calibration  and  Raw  data  reduction  and  storaga." 

3230  PRINT 

3240  IF  Run-0  THEN 

3230  INPUT  "Enter  the  date  of  data  for  for  reduction  (YTtIDD)  • "  ,  DateS 
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3260  INPUT  "Nun^ar  of  Zoe'a  eonnaetad  to  Hultl-programar" ,  Zoc_nuiiibar 

3270  INPUT  "Salaet  data  atoraga  dtlva  (0-;,700  1-;. 700, 0,1  2«: , 700. 1)" .Drv_casa 

3260  SELECT  Drv_eaaa 

3290  CASE  0 

3300  Data  dzlvaS-”:  ,700,0,0'' 

3310  CASE  r 

3320  Data  dr IvaS-" 700.0. l” 

3330  CASE  2~ 

3340  Data  drtvaS*” ; , 700 , 1" 

3330  END  SUECT 
3360  END  IF 
3370  t 

3380  MAI  FllaS- 

3300  FOt  Zoe_easa»l  TO  Zoc_nuiibar  (Assign  fllaa  from  storaga  to  FllaS(*> 

3400  SELECT  Zoc_easa 

3410  CASE  1 

3420  CALL  Flla  scant  1} 

3430  CASE  2 

3440  CALL  Flla_acan(2) 

3430  CASE  3 

3460  CALL  Flla  aean(3} 

3470  END  SELECT  ~ 

3460  NEXT  Zoo  eaaa 
3490  I 

3300  PRINT  "Cuczant  fllaa  on  storaga  disc  '*;Data_drlvaS;'‘  for  data  “;DataS 

3310  PRINT 

3320  FOR  Ra>l  TO  Run 

3330  FOR  Zn~l  TO  Zoe  n«iabar 

3340  FOR  I-l  TO  3  ~ 

3330  PRINT  USIHS  ‘■3X,K.#'';FllaS(Rn.(Zn-l)*3-fI) 

3300  NEXT  I 

3370  FRINT  OSIMO  '^.L" 

3360  NEXT  Za 
3300  NEXT  Ite 
3600  PRINT 
3610  ( 

3620  FOR  Run_rad>l  TO  Rvm  I  Raduca  data  routlna, 

3630  FOR  Zoe  easa>l  TO  Zoe  nianbar 
3640  SELECT  Zee  ease 

3630  CASE  1 

3680  CALL  Raw_rad_dat(l,Run_rad) 

3870  CASE  2  ~  ~ 

3600  CALL  Ram  tad  dat(2,Run  rad) 

3090  CASE  3  “  “ 

3700  CALL  Raw_rod_dat(3,Run_rad} 

3710  END  select” 

3720  NEXT  Zoe_easa 
3730  NEXT  Run  r^ 

3740  Rua^ 

3730  Data  zaduead^l 
3780  BEE?” 

3770  DISP  "Salact  F3  ralnltlallza  sat-up  for  data  collactlon,  or  F8  to  Exit" 

3780  OOTO  Bold 
3700  t 

3600  Vla«_filaa;  I . VIEW  FILES  ON  STORAGE  DRIVE . . . 

3810  t  Routine  loads  fllaa  froa  atoraga  drive  and  diaplays  flla  nanas . 

3620  I 

3830  CLEAR  SCREEN 

3840  PRINT  "List  Raw,  Calibration  and  Reduced  data  files." 

3830  PRINT 

3860  IF  0ata_rsduesd»l  THEN  Fzlnt_fllas 
3870  IF  Run-O  THEN 

3880  INPUT  "Enter  the  data  of  data  for  for  reduction  (YWDD) : " .  DataS 
3890  INPUT  "Numbar  of  Zoe'a  eonnaetad  to  Multl-prograniar" , Zoc_nuinbar 

3900  INPUT  "Salact  data  storaga  drive  (0“:.700  I”:. 700, 0,1  2“ : , 700 , 1 . Drvease 
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3910  SELECT  Drv_c«a# 

3920  CASE  0 

3930  Dat«_drlv«S“"  : ,  700 ,0,0" 

3940  CASE  1~ 

3930  D«t«_driv«3-":,700,0.1“ 

3960  CASE  2~ 

3970  D«t«_drlv*S-" : , 700 , 1" 

3980  EMD  SELECT 
3990  EDO  IE 
4000  Prlnt_fll«a:  t 

4010  PRIRT  "Data  atoraga  drlva  naoa  •>  " ; Oata_drlvaS 

4020  ! 

4030  MAT  FllaS- 

4040  FOR  Zoe_eaa«~l  TO  Zae_nuaibar  'Aaalgn  Ellaa  from  atoraga  to  FllaS(*> 

4030  SELECT  Zoo_eaaa 

4060  CASE  1 

4070  CALL  Fllo_3ean(l) 

4080  CASE  2 

4090  CALL  FlLa_sean(2) 

4100  CASE  3 

4110  CALL  Flla_sean(3) 

4120  EMD  SELECT  “ 

4130  MEET  Zoo_eaaa 
4140  I 
4130  FRIMT 

4180  FRIMT  "Currant  fllaa  on  atoraga  dlae  for  data  ";DataS 
4170  FRIMT 

4180  FCR  Rir*l  TO  Run  IFzlnt  tha  fllaa  Hating  on  tha 

4100  FOR  2ii>l  TO  Zoo  numbaz  tdaalgnatad  atoraga  drlva. 

4200  FOR  1-1  TO  3  “ 

4210  FRIMT  OSIHO  ■■3E,K,#‘';FllaS(lln,(2n-l)*3-4I) 

4220  MEET  I 

4230  FRIMT  OSim  "/" 

4240  MEET  Zn 
4230  MEET  Rn 
4260  t 

4270  IF  0rv_eaaa<2  TBEM 

4280  IMFUT  "Do  you  want  to  copy  fllaa  from  tha  Bard  drlva  to  Floppy?  (0«Mo  l-Yaa)" ,Copy_h_to_£ 
4290  IP  Copy_h_to_f»0  TBEM  End_vlaw 

4300  OM  ERROR  OOSUB  Flaw  arror 

4310  FRIMT 

4320  FRIMT  "HARRIH6:  Any  dupllcata  azlatlng  fllaa  on  tha  Floppy  will  bo  coplad  ovar!" 

4330  FRIMT  fCopy  tha  fllaa  from  tha  daaignatad 

4340  FCR  Rn-1  TO  Run  !hard  drlva  to  tha  floppy  drlva. 

4330  FCR  Zn-1  TO  Zoo  nunbar 

4380  FOR  I-l  TO  3  “ 

4370  Fi3-FllaS<Rn.<Zn-l)«3+I) 

4380  COPT  FlS80ata_drlvoS  TO  F1S&"; .700,1" 

4390  IF  F1S<>"-"  tIeM 

4400  FRIMT  "Flla  "jFlS;"  coplad  to  Floppy" 

4410  END  IF 

4420  MEET  I 

4430  rrZET  Zn 

4440  MEET  Rn 
4430  PRINT 

4400  PRINT  "Fllaa  hava  baan  coplad  from  ";0ata  drlvaS;"  to  Floppy  700.1" 

4470  EMD  IF 
4480  GOTO  End_vlaw 
4490  Vlaw_arror;  t 
4300  SELECT  ERRM 

4310  CASE  30  !Flla  doaa  not  axlat,  than  contlnua. 

4320  CLEAR  ERROR 

4330  ERROR  RETURN  IRatum  to  llna  following  COPY 

4340  CASE  34  '  tOupllcata  flla  ariat  on  tha  floppy. 

4330  PURGE  F1S&'' : ,  700 , 1"  !than  purga  tha  dup  flla,  tatrun  to 

Figure  A17  (cont)  ZOC-14  DAS  Program:  SCAN_ZOC_05 
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4380  CLEAR  ERROR 

4370  RETtJRM  !th«  Lin*  COPY  and  copy  th*  file. 

4380  CASE  ELSE 
4390  DISF  ERRM3 
4800  PAUSE 
4810  ERD  SELECT 
4820  ! 

4830  ! 

4840  End_vl*w;  I 
4630  Run>0 

4860  OISP  "Salact  F2  bo  ratuxn  to  manu,  or  F8  to  Exit" 

4870  GOTO  Bold 

4680  I 

4890  Finish:! 

4700  LOAD  "ZOC  MEini'‘,10 
4710  ! 

4720  ERD 

4730  End:!  '  ■'  . - 

4740  !  Function  to  ratum  todays  data  tar  Input  Into  flla  nanas 
4730  DEF  FRDataS(Saeonda) 

4760  JuUan>S*eonda  OIV  86400-1721119 

4770  r*ax-(4*Jullan-l)  DIV  146097 

4780  JuUan>(4*JuUan-l)  MOD  146097 

4700  DarOullan  OIV  4 

4800  JuUan>(4*Dar+3)  OIV  1461 

4810  0ay-<4*0ar4'3)  MOO  1461 

4820  Day>(DaT44)  DIV  4 

4830  Montlf(3*0ay-3)  DIV  133  !  Month 

4840  0ay(3*0ay-3}  MOO  133 

48S0  0ay«(Day43)  DIV  3  !  Day 

4860  Ta*r>100*Taaz-4Jttllan 

4870  IF  MontiKlO  TBER 

4880  Hanth-MontiH'3 

4890  ELSI 

4900  Nantlt*4ioatlr43 

4910  Taas«Taar4l 

4920  ERD  IF 

4930  YaaxS-VALSlTaas) 

4940  IF  Month<10  THER 

4930  Moath8-''0'‘8VALS(Month) 

4980  ELSE 

4970  MonthS-VALS(Month) 

4980  ERD  IF 

4990  IF  Day<10  TBER 

3000  0ayS-"0'8VALS<Day) 

3010  ELSE 

3020  DsyS-VALS(Day) 

3030  ERD  IF 

3040  DS*YaasS(4]8MonthS&Day9 

3030  RETURH  DS 

3080  FRERD 

3070  ! . - . - . - . - . . 

3080  !  Subcoutlna  to  build  Ill*  naoas  as  xa^lxad  by  Run  nunibsr  tor  a  spacltiad 
3090  I  2oe,  and  assign  sxlstlng  flLas  to  th*  FllaS  aatclx. 

3100  SUB  Flla(Zn) 

3110  COM  /Stats/  REAL  Pulsa.SanpL*  nuoib*c,Paus*_for, INTEGER  Cal_mod_ld(3) .DataS.Run 

3120  COM  /Fllss/  Fll*3{«).0sts_drlv*3 

3130  DIM  Data_dlaelS(231,D*ta_dlsc2S(231.0ata_disc3S(231 

3140  OH  ERROR'gOTO  Error 

3130  J-(Zn-l)*3 

3160  Asalgn_flla:  ! 

3170  Fllal-0 

3180  Data_fil*lS-''ZW'‘&VALS(Zn)&Oat*S&VALS(Run) 

3190  0ata_dlscl3~04ta_fllsl3&0ata_dclva8 

3200  ASSIGN  6Chsck_pathl  TO  Data_dlsclS  !Ch*ck  for  exlstancs  of  ZW_ 

Figure  A17  (cont)  ZOC-14  DAS  Program:  SCAN_ZOC_05 
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3210 
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3270 

3280 

3290 
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3330 

33*0 

3330 

3360 

3370 

3380 

3390 

3*00 

3410 

3*20 

3*30 

3440 

3430 

3460 

3470 

3480 

3490 

3300 

3310 

3320 

3330 

3340 

3330 

3360 

3370 

3380 

3390 

3600 

3610 

3820 

3630 

3640 

3630 

3660 
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3690 
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3710 

3720 

3730 

37*0 

3730 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

38*0 

3830 


FlI*8(Run, J+l)>Data_fll«lS  lAaalgn  ZU_  to  matrix. 

FlIal-1  !Fla8  to  ID  £lla  axlata. 

t 

FlIa2-0 

0ata_f  1  la2S-’'2C"&VALS  ( Zn  )&Data8&VA1.3(Run ) 
Data_dl3c2S~Data_£lla2S&0ata_drlva3 

ASSIGN  8Chack_path2  TO  Data_dlae2S  !Chack  for  exlatance  of  ZC 
FilaSlRun, J42]>Data_flLa23  fAaalgn  ZC_  to  matrix. 

Flla2>l  ~  (Flag  to  ID  fila  axlata. 

! 

D8ta_f 1 lass-” ZR'&VALS ( Zn ) &DataS&VAL3 (Run ) 

Data  dlae3SH)ata  fiIa3S&0ata  drlvaS 
ASSim  •Chaek_pa^3  TO  Data_dlae33 
FllaS(Run,J-f3)-Oata_flla33  ~ 
f 


IChack  for  axlatanea  of  ZR_ 
lAaalgn  ZR_  to  matrix. 


tif  ZH  axlat,  raaaalgn  Run  # 


tOiaek  atoraga  dlac  again, 
fllaa  dooot  axlat  for  Run  and  Zoe 


(Flla  ZM_  doaanot  axlat,  axit 
IFlla  ZH~  axlata 

tFlla  ZC_  doaanot  axlata,  tharafora 
Idalata  ZH_. 

IFlla  ZH_  8  ZC_  axlat,  atap  Run 
land  eontlnuo. 


Run~Run4l 

ASSIGN  eChaek_pathl  TO  * 

ASSIGN  6Chaekjpath2  TO  * 

ASSIGN  6Chaekjpath3  TO  * 

GOTO  Aaalgn_fllo 

Error;  I  Subroutlna  If  ERRaR~36, 

IF  ERRN036  THEN 
PRINT  ERRM3 
PAUSE 
END  IF 

IF  Fllal-O  THEN  Fin 
IF  Fllal-1  THEN 
IF  Fll*2>0  THEN 
ASSIGN  SChaek_pathl  TO  * 

FUROI  Data  dlaelS 
ELSE 

Run**Rim*'l 
END  IF 
END  IF 

ASSIGN  Khaek _pathl  TO  • 

ASSIGN  6Chaek_path2  TO  * 

ASSIGN  •Chaek_path3  TO  * 

GOTO  Aaalgn  flla 
Fin:  I 

ASSIGN  6(3iack_pathl  TO  * 

ASSIGN  iCaiaekjpathZ  TO  * 

ASSIGN  •(niack_jiath3  TO  • 

Data_f  lla23-"  ZC&VALS  ( Zn }  AData3&VAL3  (Run  ) 

0ata~f  llaSS-”  ZR'SVALS  ( Zn  }8Data3&VAl,3  (Run ) 

Flla3(Run,J41}~0ata_fllal3  ICraata  ZW 

Flla3(Run, J42)~0ata  flla23  ICraata  ZC 

Flia3(Run,J43)-Data~flla3S  lAsalgn  ZR^ 

SUBEND 

I - - - 

I  Subroutlna  to  oparata  tha  BF6944A  l8iIti-prograinnar  for  acannlng  Zoca. 
SUB  Sean_zoea(Count,Ful3a) 

(XM  /Namaa/  Buffarl,Adcl,Buffar2,Ade2.Buffar3,Adc3,7tmar 


to  matrix, 
to  matrix, 
to  matrix. 


Halt_tlma^ount*2*PuLao'f  10 . 0 
Init(Tlmor) 

Sat_tlfliaout(Tlmor  ,Halt_tlma} 

Sat2.eount  (Timor ,  Count ) 

Sat_porlod(TlBior ,  Pulao ) 

Inlt(Buffarl) 

Inlt(Buffar2) 

Inlt(Buffor3) 

Start (Timor) 

Walt_for (Timor) 

subend” 

! . - . - - - - 

!  Subroutlna  to  collact  raw  praaaura  data  from  Mamory  System  and  atore 


I  Sat  Timor  wait  tlmo  to  '*-10  aacs. 
t  Inltlallza  Timor  aystam 
!  Sat  Pauaa_for  porlod  of  xx  aaca. 

I  Sot  Count  nunbor  Into  Timor 
I  Sot  Timor  pulao  longth  In  aaca. 
t  Inltlallza  Buffar  for  data  atoraga 


Start  data  aamplo  collactlon 

Data  aamplaa  atorad  In  Mamory  Syatem 


Figure  A17  (cont)  ZOC-14  DAS  Program:  SCAN_ZOC_05 
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SS60  t  onto  th*  hard  drlva  for  futura  data  raductlon. 

3870  SUB  Raw_dat(Buff,Zn) 

3880  COM  /Stata/  REAL  PuLsa,SaBipla_nunibar,Pauaa_for, INTEGER  CaL_inod_ld(3)  .DateS.Run 
3890  COM  /Fllaa/  FllaS(*) .Data  dtlvaS  I  Data  flla  Ilatlns  for  99  runs. 

3800  m  ERROR  GOTO  Error 

3910  INTEGER  RaH_data( 32672)  BUFFER  !  Intagar  raw  data  buffer  for  32*1021 
3920  !  data  saaiplas.  Intagar  format  for 

3830  I  mlnlDum  tranafar  tins  to  storage. 

39A0  DIM  Data_dlac3[231 
3930  SnwSaBpIa_nuDbat 
3980  Aaslgn_fila:  I 

3970  0ata_fllaS>Flla3(Run,(Zn-l)*3>l)  t  Raw  data  flla 
3980  Data_dlae34ata_flla3<Data_driva3 

3990  CREAn  BOAT  0ata_dlae3,32*iiH'l,2  f  Craata  BOAT  flla  of  2  brie  records. 

8000  ASSIGN  IData_path  TO  Data_dlscS  I  Assign  path  to  hard  drlva 
8010  ASSIGN  8Buffsr_path  TO  BUFFER  Raw_data(*) :FQRMAT  OFF 
6020  Input_lfaloek(Buff ,Raw_data(*) ,Sn*32, 1)  t  Load  data  sanples 
6030  CONTROL  fBuf f sr_path , A ; 32*2*Sn>2  I  Cloaa  buffsr  whan  full 

6040  TRANSFER  (Buffat_path  TO  dData_path  I  Tranafar  data  Data_dlsc 

6030  ASSIGN  auffsr_path  TO  * 

8060  ASSIGN  •Oata_path  TO  * 

6070  PRINT  "Raw  prsssura  data:  Run#":Run;".  Zoe#";Zn;”.  storags  drlva  file  '';Data  f ila3&Data_drlvaS 

8080  GOTO  Fin 

8090  Error:  I 

8100  IF  ERRH<>34  THEN 

8110  PRINT  ERRMS 

6120  FAUSB 

6130  END  IF 

8140  IF  ERRRwSA  THEN  i  Run  step  routine  when  eoaplllng 

8130  RunHRunel  t  aultlple  data  runs  without  data 

6160  CALL  Flle(Zn)  I  raduetlon. 

8170  END  IF 
6100  GOTO  Assign  file 
8190  Fin:  I 

8200  SUBEND 

8210  I . . . . 

8220  I  Subroutine  eontrola  calibration  mode  and  reads  pressure  from  Pressure 
0230  I  Standard  Into  Zoe_eal(*)  arrar. 

6240  SUB  Cal2000(CaDBund3,l) 

8230  COM  /Zoo_dat7  REAL  Zoo_call<*)  BUFFER. Zoc_eal2(*)  BUFFER. Zoe_cal3(*>  BUFFER 

8260  COM  /Stata/  REAL  Pulsa.SaBiple_nundiar.Psuso_for. INTEGER  Cal_<Bod_ld(3)  .DateS.Run 

8270  DIM  Frsssurs3(3]  !  Required  to  read  data  stream 

6280  OOTFUT  9;7AL3(1) ;CaBiand3;CBRS<13) .END  t  Sets  calibrator  #1  anda 

6290  OUTPUT  9;VAL3(2);C<SBand3;CHR3<13);ERD  I  Sets  calibrator  #2  a»de 

8300  WAIT  Pauao_Ior  I  Allow  CALSYS2000  to  stabilize 

6310  FOR  K-1  TO~Cal_nod  ld(0)  •  Read  CALSTSZOOO  cal  press 

6320  SELECT  K 

6330  CASE  1 

8340  OUTPUT  9; VAL3(Cal_BOd_ld( 1) ) ; "RP" ;CHRS( 13) :EHD 

6330  ENTER  9  USING  "# . SD . 3DESZZ . K" ; Zoc  call(0. 1*3) . Pressures 

6360  CASE  2 

6370  OUTPUT  9;VAL3(Cal  mod  ld(2) ) ; ”RP" ;CHR3( 13 ) ; END 

6380  ENTER  9  USING  "O.SD. 3DESZZ.K’ : Zoe_cal2(0. 1+3) . Pressures 

6390  CASE  3 

6400  OUTPUT  9;VALS{Cal_iiK)d_ld(3)):"RP";CHRS(13);END 

6410  ENTER  9  USING  "#.iD. 3DESZZ,K" ; Zoc  cal3(0. 1*3) .Pressures 

6420  END  SELECT 

6430  NEXT  K 

6440  IF  I<~3  THEN  !  Account  for  positive  pressures  used 

8430  Zoe_call(0.I*3)— Zoc_eoll(0.I*3)  !  by  CALSTSZOOO  In  the  NH.NM.  &  NL  mode. 

6480  Zoe~cal2  (0.1*3 )— Zoc^calZC  0 . 1*3 ) 

8470  2oc~cal3 (0.1*3)"- Zoc“cal3 (0,1*3) 

8480  END  IF 
6490  SUBEND 

8300  ! - - - - - - - 

Figure  A17  (cont)  ZOC-14  DAS  Program:  SCAN_ZOC_05 
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6S10  I  Subroutln*  atoras  callbEatlon  data  collaetad  from  Memory  System  and 
6320  I  CALSyS2000  calibration  praasura  data  onto  tha  hard  drlva. 

6330  !  Zoe_eal_  is  than  atorad  onto  tha  hard  drlva. 

6310  SUB  Cal_dat(REAL  Cal(*) ,Zoc_eal(*)  BUFFER) 

6330  COH  /Stats/  REAL  Fulsa , Sampla_numbar , Pausa_f or , INTEGER  Cal_iiiod_ld(3)  .DataS.Run 
6360  COM  /Fllas/  FllaSC*) .Data  drlvaS  !  Data  flla  listing  for  99  runs. 

6370  ! 

6380  !  Convartlng  CalC*)  to  Zoe  cal(*) 

8390  FOR  J-*  TO  10  “  !  Cal  runs:  NH,NM,HL,ZO,PL,EM,PH 

6600  FOR  I~1  TO  32  !  Zoe  ports  par  calibration  run 

8610  FOR  K~0  TO  4  I  Humbar  of  sanplas  par  run 

6620  Zoo  eal(I.J)>Zoe  caKI, J)'K:al(I-tK*321’<J-*)*160) 

6630  NEXT  K 

6610  Zoo  eal(I,J)~Zoe  eal(t,J)/3  I  Avaraga  of  3  samplas  par  port  I 

6630  NEXT  I 
6660  NEXT  J 
6670  I 

6680  I  Transfer  calibration  data  to  hard  drlva. 

6890  ON  ERROR  OOSUB  Purga_flla 

6700  OIH  Data_dlseS(23]  I  Oafina  string  for  data  flla  nama 

6710  Zn~Zoe_eal(0,2)  I  Oafina  Zoe  nianbar 

6720  Data_flla6aFlla3(Run, (Zn*l)*3+2)  t  Calibration  data  file 
6730  Data_dlaeS-Oata_fllaSUata_drlvaS 

6710  CREATE  BOAT  0ata_dlscS,33,i*ll  I  Craata  BOAT  flla  of  11*8  byta 

6730  ASSIGN  iData_path  TO  Data_dlseS  I  Assign  path  to  hard  drlva 

6760  ASSIGN  BBuffarjpatta  TO  BUFFER  Zoe_eal(*);F(»MAT  OFF 

6770  CONTROL  naffar_pabh,l;  8*11*33  tSat  data  flla  length 

6780  TRANSFER  tBuffat_path  TO  6Data_pathlStorA  cal  data  on  hard  drive 

8790  ASSIGN  CBuffarjpath  TO  *  I  Cloaa  path 

6800  ASSIGN  «Data_path  TO  *  I  Close  path 

8810  PRINT  "CallbrattoB  data;  Run#'; Run;*,  Zoe#';Zn;',  atoraga  drlva  flla  ';Data_dlaeS 
6620  GOTO  Pin 
6630  Purge  file:  I 
6640  IP~ERRN-S4  THEN 

6830  PRINT  "Erter  oeeuxed  in  SUB  Cal.dat.  Ertet;':ERRN 

6860  PAUSE 

6870  END  IP 

6880  RETURN 

6890  Fin;  I 

6900  SUBEND 

6910  I - - 

6920  I  broutlna  loads  raw  and  calibration  data  frem  tha  storage  drlva, 

8930  I  cadueas  tha  data,  and  stores  the  data  onto  tha  atoraga  drlva. 

6910  t  Calibration  data  la  reduced  using  tha  Least  Squares  Curve  fit  to  obtain 
8930  I  coafflolonta  for  a  third-ordar  polynomial.  Tha  raw  praasura  data  la 
6960  I  reduced  using  these  eoafflelants. 

6970  t  Buffer  arraya  are  rsplaead  with  standard  arrays  for  data  manipulation. 

6980  I  Utilisation  of  Buffers  and  the  TRAHSFQt  routine  results  In  lost  of  tha 
8990  I  flrat  several  data  bytes  whan  data  la  transferred  from  floppy  madia  to 
7000  !  the  buffer.  Utilisation  of  OUTPUT,  ENTER,  and  arrays  results  in  no 

7010  I  data  lost  with  floppy  madia.  Bard  disc  madia  woc)cs  wall  with  either 
7020  !  data  manipulation  technique  using  buffers  or  standard  arrays. 

7030  SUB  Raw_r ad_dat ( Zn , Rn ) 

7010  COM  /Hmsss/  Buffarl, Add, Buffar2.Adc2, Buffers .Adc3 .Timer 

7030  COM  /Stats/  REAL  Pulse, Sanpls_numbsr ,Pausa_for, INTEGER  Csl_mod_ld(3 ) , Data$[ 6] , Run 
7060  COM  /Files/  FllsS(*) ,Data_drlveS  !Data  flla  listing  for  99  runs. 

7070  0ata_fllsl3-FllaS(Rn, (Zn-1)*3*2)  I  Calibration  data  flla 

7080  Data_flla2S~FlleS(Rn, (Zn-l)*3>l)  !  Raw  data  flla  name 

7090  Data~flla3S-FllaS(Rn, (Zn-l)*3+3)  !  Reduced  data  flla  name 

7100  I 

7110  IF  Data_fila3S<>’''''  THEN  !  Contlri  If  Reduce  data  flla 

7120  GOTO  Fin  !  doasnot  exist. 

7130  END  IF 
7110  ! 

7130  IF  Dats_fllalS-"-"  THEN 

Figure  A17  (cent)  ZOC-14  DAS  Program:  SCAN_ZOC_05 


107 


Zoc#" ; Zn 
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PRINT  "Calibration  Zlla  doasnot  axlst  for  Run#";Rn;". 

GOTO  Fin 
END  IF 
I 

ON  ERROR  GOSUB  Error 
DIM  Oaea_dlael$C23] 

DIM  Data~dlac2S(23] 

DIM  Data_dlac3S(23) 

Data_dlsel$-Data_{llalS&DBta_drlvaS 
REAL  Zoe_eal(32, 10]  !Array  to  handla  calibration  data 

I 


Data_raduetlon:  I 

PRINT  "Data  raduetlon:  Run#";Rn;",  Zoc#";Zn 
I 

ASSltai  8Data_pathl  TO  Data_dlae  18;  FORMAT  OFF 

ENTER  6Data_pathl ; Zoo  eal(*)  ILoad  raw  calibration  data  Into  array 

ASSKRI  6Data_pathl  TO~* 

! 

I  Calibration  data  raduetlon  ualng  Laaat  Squaraa  Polynoolnal  fitting. 

REAL  A(3,3) ,B(3) ,C(3) ,SinB_z(6) .A_lnv(3,3)l  Laaat  Squara  raduetlon  arrays 
FOR  K~1  TO  32  I  Loop  for  aach  port 

I 

MAT  C-  (0) 

MAT  Sum_x-  (0) 

I 

FOR  J^l  TO  8  I  Routlna  to  raduca  Individual  port  cal 

FOR  I~4  TO  10  I  data  Into  alaawnta  to  a  powar 

Sum  s(J)-Sum  s(J)>Zoe  caKK^D'S 
NEXT  I  ■  “ 

NEXT  J 
I 

FOK  IH)  TO  3  I  Oarlva  A  array 

FOB  TO  3 

A(I,J)-Sum  r(I>J) 

NEXT  J 
NEXT  I 
A(0,0)-7 

! 

FOR  J*0  TO  3  t  Oarlva  C  array 

FOR  1-4  TO  10 

C(J)*C<J)+Zoe_cal(X,l)*J*Zoc_cal(0,l) 

NEXT  I  “ 

NEXT  J 


I 

MAT  A_lnv-  INV(A) 
MAT  B^  A  lnv«C 

! 

1 

I 

! 

!  Collaet  Laaat  Squara 
Zoe  eal(K,0)-B(0) 
Zoc~eal(K,l)-B(l) 
Zoc~eal(K,2)-B(2) 
Zoc~eal(K,3)-B(3) 
I 


I  B  array  is  ouitrlr  of  Laaat  Square 
ooafflclants  a0,al,a2,&  a3  for  polynomial 
aquation  fitting  calibration  data  for  a 
apaclflad  port 

coafflelants 

iCoafflclant  aO 
iCoafflelant  al 
ICoafflclant  a2 
ICoafflclant  a3 


NEXT  K 
I 

ASSIGN  90ata_pathl  TO  Oata_dltcl3;FORMAT  OFF 

OUTPUT  80ata_pathl;Zoc_cal(*)  IStora  raducad  calibration  data 

ASSIGN  eData_pathl  TO  • 

! 

PRINT  "Calibration  data  raducad  and  transfarrad  to  " :Data_fllalS 
I 

I  Racovar  raw  data,  convert  to  real,  reduce  then  store  In  blocks 


Figure  A17  (cont)  ZOC-14  DAS  Program:  SCAN_ZOC_05 
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7810 
7820 
7830 
7840 
78S0 
7880 
7870 
7880 
7890 
7900 
7910 
7920 
7930 
7940 
7930 
7960 
7970 
7980 
7990 
8000 
8010 
8020 
8030 
8040 

8030  I  Routlna  to  raduea  raw  raal  data: 

8060  I 

8070  t  Data  -  aO  +  al**  +  a2***2  ♦  a3***3 

8080  I 

8090  t  whata  a0,al,a2,  A  a3  ara  Laaat  S<iuara  eoaCflclanta,  and  z  la 
6100  t  tha  Individual  port  raw  data  valua. 

6110  I 

6120  0ata(0)wBloek  I  Stora  raduea  data  ampla  niaabar. 

8130  rat  K-l  TO  32 

8140  0ata(K)vZo«  eaKK.Ol^Zoe  eal(K.l)*Data  raal(K)4Zoe  eal(K,2)*Data  rsal(K)‘24Zoe  cal 

8130  imr  X 

8180  I 

8170  OUTPUT  8Data_path3;0Ata(*}  tStora  block  of  raduead  data  Into 

8180  NEXT  Block  Unto  the  fila  on  tha  daalgnatad  drlva. 

8190  I 

8200  AS3IGM  SDatajpath3  TO  * 

8210  ASSIGIf  8Dataj|>ath2  TO  • 

8220  FRIBT  "Raw  data  raduead  and  transfarrad  to  ";Data  fllaSS 
8230  PRINT 

8240  OOTO  Fin 

8230  Error;  IRoutlna  to  trap  error  In  program. 

8280  PRINT  ERRMS 

8270  PAUSE 

8280  RETURN 

8290  Fin:  t 

8300  SUBENO 

8310  I - - - - 

8320  I  Subroutine  to  load  existing  files  required  by  Run  niinbec  for  a  specified 
8330  I  Zoc,  and  assign  existing  files  to  tha  FlleS  matrix  for  Data  reduction 
8340  I  and  List  files  routines. 

8330  SUB  Flls_aean(Zn) 

8380  •  COM  /Stats/  REAL  Pulse, Sample  number . Pausa_for .INTEGER  Cal_mod_ld( 3 ) , DateS , Run 

8370  COM  /riles/  Flla3(*) ,Data_drlve3 

8380  DIM  Data  dlacl3I23] .Data  dlsc23I23l .Data  dlsc3S(Z3] 

8390  Hn-1 

8400  Loop»l 

8410  rila_ln_atore8a“0 

8420  ON  ERRCn  GOTO  Error 

8430  J-<Zn-l)*3 

8440  WHILE  Loop-1 

8450  Fllal-0 


Figure  A17  (cont)  ZOC-14  DAS  Program:  SCAN_ZOC_05 


I  of  samples  (32  ports  scanned  par  block) 

Sn-ZQe_eal(0, 1)  tSampla  number. 

INTEGER  Data_lntager( 1 ; 32)  (Array  to  handle  raw  integer  data. 

REAL  Data_rsal(l:32),Data(32)  (Arrays  to  handle  raw  and  reduced 

Data^dlac2S-Data_flls23&Daba_drived  (raal  data. 

0ata~flla33-‘’ZR"ivALd(Zn)&Oate3&VAL3(Rn)  (Reduced  data  fils  name. 
Data_dlse33-Data_flls3S&0ata_drlva3 

CREATE  BDAT  Data~dlse33,Sn.8*33  (BOAT  file  of  33*8  byte  records. 
ASSIGN  SOata^pathZ  TO  Data_dlac23; FORMAT  OFF 
ASSIGN  80ata_path3  TO  Data~dlae33;FORMAT  OFF 
I _ 

CONTROL  B0ata_path2 , 3 ; 2  (Sat  read  pointer  to  2nd  record 

t  (In  raw  Intargsr  data  fils. 

FOR  Bloek-1  TO  Sn 

ENTER  BData_path2;Data_lntagar(*)  (Load  caw  data  into  array. 

SELECT  Zae__cal(0,2)  (Translating  raw  Intargsr  data  Into 

CASE  1  (raw  real  data. 

Translata(Adcl,Data  intagarf*) .Data  rsal(*)/ 

CASE  2  ~  ~ 

Tzanslats(Adc2,Data  lntsgac(*) .Data  raal(*)) 

CASE  3 

Tzanslata(Ade3,Data  lntsgaz(*).Data  caaK*)) 

END  SELECT 

( 
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a*60  Dat*_f  1 ZW&VALS  ( Zn  )&Dat«SiVAl,S(Rn ) 

8*70  Data_dlsclS“Data_tllelS&Data_drlveS 

8*80  ASSIGN  8Chack_pathl  TO  Data_dlaelS  iChack  for  exlstanca  of  ZW_. 

8*90  FllaS(Rn,J+l)-Data  filalS  ~  'Asalsn  ZW_  to  matrix. 

8300  FHal-1 

8310  I 

8320  Data_flla2S-"ZC"&VALS(Zn)&DataS&VALS(Rn) 

8330  Data_dl3e2S~Data_flla2S&Data_drivaS 

83*0  ASSIGN  8Chack_path2  TO  Data_dlsc2S  iChack  for  axiatanca  of  ZC_. 

8330  FllaS<Rn,J+2)-0ata  flla2S  ~  iAaalsn  ZC_  to  matrix. 

8360  I 

6370  Data_flla3S-''ZIt''&VALS(Zn)A0ataS&VALS(Itn) 

8380  Data_dlsc3S~0ata_£ila3S&0ata__dxlvaS 

8390  ASSIGN  •Chaek_path3  TO  0ata_dlae33  IChack  for  axiatanca  of  ZR_. 

8600  FllaSCRa, J'*3)~Oata_flla3S  lAaalgn  ZR_  to  matrix. 

8810  I 

8620  GOTO  Aaal8n_flla  IChack  atoraga  diac  again. 

8630  Error:  I  Subroutlna  If  ERROR~36,  filaa  donot  axlat  for  Rn  and  Zoc 

86*0  IF  ERRN<>36  THEN 

8630  PRINT  ERRM3  - 

8660  PAUSE 

8670  END  IF 

8680  Aaalgn_flla:l 

8690  IF  Filal-1  THEN  ISwltch  to  bagln  ant  ring 

8700  Flla_ln_atoraga«l  Iflla  nanaa  In  to  Fi--aS 

8710  END  IF~ 

8720  IF  Fllal-0  THEN 

8730  IF  Flla_ln_atoraga-l  THEN  ISwitch  t  axlt  routlna 

87*0  LoopvO  'onca  «i>'.iaa  ara  mada 

6730  END  IF  Unto  FllaS 

8760  END  IF 

8770  ASSIGN  •Chack_pathl  TO 

8780  ASSIGN  •Chack_path2  TO  • 

8790  ASSIGN  •Chack_path3  TO  • 

6800  IF  ItD*100  THEN  I  Exit  routlna  aftar  chacklng 

8810  Loop^O  lup  to  100  poaaibla  Run  #a 

8820  END  IF 

8830  Rn-Rn+1 

88*0  END  HBIl 

8830  Fin:  I 

888."  RunoRn-  . 

8<  .  SUBEND 

8880  ! -  - 


Figure  A17  (cont)  ZOC-14  DAS  Program:  SCAN_ZOC_05 
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10 
20 
30 
*0 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
130 
160 
170 
180 
190 
200 
210 
220 
230 
240 
230 
260 
270 
280 
200 

300  Pcliit_r«*ult« :  I 

310  min  *Bata  Fxlnt  (Xit  for  Zoo  #":Zoa;'*,  Xtai  #‘':Run 

320  mm 

330  FRim  TAB(3)i'’Forlod  botwoon  oaoiploo  (■•e):‘';Forlod 

340  mim  TAB<3)i*Sanplo  eollootton  rato  (Rs):  'sRt 

330  mm  TAB(3);''RtaBbar  of  taaqilaa  par  port:  '‘:Sagipla_ina9>ar 

360  mm  TAB(3);'‘lan(th  of  data  ran  (aoe):  '*;Parlod*31*Sampla_nunbar 

370  Loop;  I 

360  FRim 

390  IHFUT  ‘’Entar  port  nuobor  for  data  (0>Exlt):‘',Fort_niaiibar 
400  IF  Fort_nunbar^  THEM  Plnlah 

410  INPUT  "Entar  Ftrat  aompla#  of  run  to  b#  vlawad;'',Saaiplal 
420  IHFUT  "Entar  End  aompla#  of  run ; " ,  Saa^plaZ 

430  FRim  "Data  Tabulation  for  Fort  #";Fott_nvnibar;"fxaa  flla;  ";Data  fllaZS 

440  mm 

430  mm  USING  "K,8X,K,6X,K":"Sampla","TlBia  (sae)"."Fra88uro  (Hj.)" 

460  FOR  Sompla^oniplal  TO  SomplaZ 

470  mm  USING  "30,7X,20.3D,BX,30.3D";Sampla.((Sampla-l)*324(Fort  numbar-1)  )«Perlod.0ata 
480  NEXT  Swipla 

490  GOTO  Loop 

300  Finish;  I 

310  ASSIGN  OOatajpathl  TO  • 

320  ASSIGN  SDatajpathZ  TO  • 

330  DEALLOCATE  Call*) 

340  DEALLOCATE  Data(») 

530  PRINT 

380  PRINT 

370  PRINTER  IS  CRT 

380  LOAD  "ZOC  MENO",10 

390  END 


I  Program;  R£AD_ZOC 

t  Daserlptlon;  Roads  spaclflad  data  compllad  from  program  SCAN_ZOC_04. 
CLEAR  SCREEN 
PRimER  IS  CRT 
DIM  Data  dlacl3I23] 

DIM  Data~dlsc2S(23] 

INPUT  "Entar  Zoc  #  (1,2,3),  data  (Y^M}D),  and  run  #; " , Zoc , DateS ,Run 
INPUT  "Print  raaults  to  aeraan  or  prlntar  (O'Scraan  l«Prlntar)" . Vlaw 
IF  Vlow-l  THEN 
mUTER  IS  711 
ELSE 

PRINTER  IS  CRT 
END  IF 

Data_tl la 1S-"ZC"&VALS ( Zoc )«0a taSAVALS (Run ) 

Data_f lla23>"ZR"&VALS ( Zoc ) A0ataS&VALS(Run ) 

Data_dlse lS-Data_f 1 la ISA" : , 700 , 0 , 1 " 

Data_dlsc2S~0ata_f lla2S&" ; , 700 ,0,1" 

ASSIGN  S0ata_pathl  TO  0ata_dlsel3 
ASSIGN  R0ata_path2  TO  0ata~dlse2S 
REAL  H1,N2 

STATUS  RData_pathl,3;Hl  I  Datarralna  numbar  of  racords 

STATUS  S0ata_path2 , 3 ; H2  I  Dotstmlna  niunbar  of  racords 

ALLOCATE  REAL  Cal(Nl-l, 10) ,0ata( 1:H2,32) I  Oaflna  REAL  array  of  racords 
ENTER  a0atajpathl;Cal(») 

ENTER  a0ata_path2;Data<*) 

Psrlod>Cal{0.0) 

R*ml/Parlod 
Sompls^ntabar^al  ( 0 , 1 ) 

Zae>Cal(0,3) 


Figure  A18  ZOC-14  DAS  Program:  READ_ZOC 
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10  I  Program:  PLOT_DATA 

20  !  Daacrlpt:  Plots  rsducad  data  compiled  by  SCAH_ZOC_04 . 

30  !  Actual  data  polnta  are  plotad  as  squares.  Square  size 

40  I  can  be  adjusted  by  varying  variable  Sc  In  line  110. 

50  I 

80  CGM  /Plot  labels/  REAL  Xo,X£.yo,¥£,Dr ,Dy ,Tltla$t60] ,X  labslS[S0].y  labalS(SO) 

70  !  ” 

80  CLEAR  SCREEN 

90  PRINTER  IS  CRT 

100  Sc~.00S  tScale  size  of  plotting  squares 

110  PRINT  "Prograa;  PLOT  DATA" 

120  PRINT 

130  PRINT  "Program  plots  the  reduced  data  compiled  by  the  program  SCAN_ZOC_0S. " 

140  PRINT  "Hard  copies  of  plots  can  be  raproduesd  to  either  the  HP  Think  Jet" 

130  PRINT  "printer  or  HP  Laser  Jet  printer." 

180  PRINT 

170  PRINT 

180  PRINT  "Press  F2  to  continue  after  calibration  display  la  plotted" 

100  PRINT  "Press  <Shl£t>  <0ump  Graph*  for  printout  of  plot  on  the  printer" 

200  ! 

210  I  Load  data - - - - - - 

220  DIM  Data  dlael3C23] 

230  DIM  Data~dlse28C231 

240  INPUT  "Enter  Zoc  #  (1,2,3),  Data  (yi«1DD),  Run  #:",Zoe.DataS,Run 
230  Flla_nmnalS>"ZC"&VAL8(Zoe)£OataS&VAL8(Run) 

280  Flla~aame2S-"ZR"&VAL8(Zoc)£0ata8&VALS(Run> 

270  Data_dlacl8*>Flla_naBwl$&" : ,  700 ,0,1" 

280  Data_dlso23oFlla~nama28&" ; , 700 , 0 , 1" 

200  ASSIGN  •0ata_pathl  TO  0ata_dlsol3 

300  ASSIGN  NData^jiathR  TO  Data  dlse23 

310  REAL  Nl.Na 

320  STATUS  S0ata_pathl,3;Nl  I  Determine  number  of  records 

330  STATUS  tOata jatti2 , 3 ;  R2  I  Datarmlna  number  of  records 

340  ALLOCATE  REAL  CaL(Nl-l, 10) ,Data(l:R2,32)l  Define  REAL  array  of  records 
330  ENTER  tDatajpathl;Cal(*) 

380  ENTER  C0ata_path2;0ata<*) 

370  Pariod^al(0,0) 

380  Hfl/Perlod 

390  Sample_number^al(0,l) 

400  Zae*Cal(0,2) 

410  Diaplay_stats:  — — - — - - - - - 

420  CLEAR~SCREEN 

430  PRINT  "Program  plots  reduced  data  from  file  ";Fila  nama2S 

440  PRINT 

430  PRINT  "Statistics  for  Zoc  #";Zoc 

480  PRINT 

470  PRINT  TAB(3) ; "Period  between  samples  (msec) ;";Ferlod* 1000 

480  PRINT  TAB(3) ; "Sample  eollaetlon  rate  (Hz):  ";Hz 

490  PRINT  TAB(3);"NuBfcaz  of  samples  per  port:  " ; Saropla_number 

300  PRINT  TAB( 3) /'Length  of  data  run  (msec);  " ;  ( (Sample_nuinbsc-1  )*32't31)"Parlod*1000 

310  PRINT 

320  PRINT 

330  PRINT  "Data  point  can  be  plotted  as  a  continuous  line,  or  squares." 

340  PRINT 

330  PRINT  "Note;  Wait  for  symbol  In  lower  right  cornrr  of  CRT  to  change” 

380  PRINT  "  to  a  before  pressing  <Shl£tx0ump  Graph*" 

570  ! 

580  INPUT  "Enter  Port  #:",P 

390  INPUT  "Enter  min  range  of  pressure  reading  (In  Rg);",Yo 

800  INPUT  "Enter  max  range  of  pressure  reading  (In  Bg ):",¥£ 

810  INPUT  "Enter  Start  time  for  plot  (msec);",Xo 

820  INPUT  "Enter  Stop  time  for  plot  (msac)):",X£ 

830  INPUT  "Enter  type  of  data  point  plotting  (0~Squares  1-Llna ) ; " , Plot_cass 

840  INPUT  "Plots  DUMPED  to  Think  Jet  or  Laser  Jet:  (0-TJ  1-LJ)" ,Dump_devlce 

830  IF  Duiiip_devlce«l  THEN 

Figure  A19  ZOC-14  DAS  Program:  PLOT_DATA 
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660 

DUMP  DEVICE  IS  9 

670 

ELSE 

680 

DUMP  DEVICE  IS  711 

690 

END  IF 

700 

I 

710 

Tltla3~"Raducad  Data  Plot  of  Port# 

"aVALS(P) 

720 

X  labolS~'‘Tlns  (msac)” 

730 

Y  labal3~"Prsssurs  (In  Bg)" 

740 

Dx-10 

ITlc  marks  par  X-axls  on  plot 

730 

Dy“10 

ITlc  narks  par  Y-axls  on  plot 

760 

1 

770 

!  PLot  routine  - 

760 

CALL  Plot 

IRountlna  to  display  graph  background 

790 

FOR  I-l  TO  SaiBpla_maBbac 

IPlot  Squaraa  around  data  points 

800 

Saapla_tl8w>(  (Data(I,0}-l)*32'f(P 

-l))*1000epartod 

810 

SELECT  Plot  eaaa 

820 

CASE  0 

830 

PLOT  Sampla  tlDa,Data(I ,F) , -2 

IMova  pan  to  data  point  position 

840 

CALL  S<iuara7xo,Xf,yo,yf,Sc) 

ISubrountlna  to  plot  squares 

830 

CASE  1 

860 

PLOT  Sampla  tlma, Dated, P) 

870 

END  SELECT 

880 

NEXT  I 

800 

I 

900 

910 

PAUSE 

Flnlah:  !- - — 

920 

930 

940 

930 

960 

970 

990 

990 

1000 

1010 

1020 

1030 

1040 

1030 

1080 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1130 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1230 

1260 

1270 

1280 

1290 

1300 


CLEAR  SCREElf 

IHPOT  "Graph  anothar  calibration  plot:  (  0>*Ho  l^Yaa  )",Asaln 
IE  Acaln^l  TBER  Olaplay^atata 
A8S16R  tDatajpathl  lO 
A8S1GH  •Data_path2  TO  • 

OEAIXOCATE  Cal(*) 

DEAIXOCATB  Data(*) 
miRTEX  13  CRT 
DUKE  DEVICE  IS  711 
LOAD  "20C  ME!ra",10 
EMD 

I"  ..I- 1 . . .  ..II  . . - . . 

SUB  Plot 
I 

I  Subroutine  to  dlaplay  plot  teraon,  laaa  tho  plota  of  any  curvaa 
I  for  tba  apaelflad  varlablaa  In  tha  CCH  /PIot_labals/  llna. 

COM  /Plet_labola/  Xo.Xf ,Yo,Yf ,Dx.Dy,tltla3,X_labal3,Y_labal3 
CLEAR  SCREEN 
key  LABELS  OFF 
GINIT 

X_ransa-Xf-Xo 
Y_ran8a-Yf-Yo 
LCTG  6 

MOVE  100*RATIO/2.100 
CSI2E  3 
LABEL  TltlaS 
MOVE  100*RA7IO/2,0 
LORO  4 

LABEL  X  labalS 
DEG 

LOIR  90 
L0R6  6 
MOVE  0,50 
LABEL  Y  labalS 
LDIR  0  “ 

LORG  2 

VIEWPORT  10, 90"RATlO. 10,90  ISats  graph  scraan  slza 

FRAME  I  Box  around  VIEWPORT 

WINDOW  Xo.Xf,Yo,Yf  TSat  axis  lengths  In  VIEWPORT 


llnltlallza  graph  routine 

ILength  of  X-azls 

ILength  of  Y-axla 

ICharactar  raf  pt;top  center 

!Movo  cursor  to  screan  loc  for  labels 

ISlzea  labeling 

I  Plot  title 

!Movs  cursor  to  bottoa  centar  screan 
ICharactar  ref  pt: bottom  centar 
!X-axls  label 
IDealg  dagreaa  for  LDIR 
ISeta  y-axls  label  on  end 


!Y-azls  label 

IRaaet  label  to  horizontal  orientation. 
IChr  raf  pt:laft  canter 


Figure  A19  (cent)  ZdC-14  DAS  Program;  PLOT_DATA 


113 


1310  AXES  X_rang*/Ox,y_rang«/Oy ,Xo, Yo  lAxa*  Intarsact  at  Lcntar  left 

1320  AXES  X_ranga/Dx,Y  ranga/Oy ,Xf , Yf  tAxaa  Intarsact  at  upper  right 

1330  GRID  x“range/Dx,Y“ranga/Dy,Xo.Yo.Dx,Dy,.001 

13A0  CLIP  OFF  !Sa  labala  can  print  outalda  VIEWPORT 

1330  CSIZE  3.0,. A  !Axaa  label  alza 

1360  L0R6  6  ! Number  X'axis 

1370  FOR  I-Xo  TO  Xf  STEP  X_range/Dx 

1380  MOVE  I,Yo-.01«Y  range 

1390  LABEL  USING  '■#.K";I 

lAOO  NEXT  I 

1410  LORG  8  INodier  Y-axls 

1420  FOR  I-Yo  TO  YE  STEP  Y  range/Oy 

1430  MOVE  Xo-.01*X_rangeTl 

1440  LABEL  USING  "i.Kr-.t 

1430  NEXT  1 

1460  CLIP  ON 

1470  ! 

1480  SUBENO 

1490  SUB  Square(Xo,Xf,Yo,Yf.Sc) 

1300  ISubroutlne  to  plot  aquarea  around  the  local  origin  daalgnatad 
1310  Iby  the  PLOT  atataaient. 

1320  Xd-So*(X£-Xo)  fX  dlaplacaownt  for  RPLOT 

1330  yd-Se*(Yf-Yo)*RATIO  lY  dlaplaeamant  for  RPLOT 

1340  RPLOT  -Xd,Yd,-2 

1330  RPLOT  Xd.Yd.-l 

1380  RPLOT  Xd,-Yd,*l 

1370  RPLOT  -Xd,-Yd,-1 

1380  RPLOT  'Xd,Yd,2 

1390  SUBEND 


Figure  A19  (cont)  ZOC-14  DAS  Program:  PLOT_DATA 
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10  t  Prograffl;  CAL_READ_FR1 

20  I  D«*crlptlon:  program  to  oparata  CAL2000  calibration  modas  aaquentially 
30  t  and  raad  corraspondlng  calibration  prasauraa  in  Hg  aa  a 

^0  t  taat  bad  for  latar  insartlon  Into  tha  Zoc  scanning  programs 

SO  I  Author:  Rick  Wandland,  Naval  Foatgraduata  School,  Hontaray  CA 

60  t  Tala: (408)  646-2163 

70  ! 


80 

CLEAR  SCREEN 

90 

PRINTER 

IS  CRT 

100 

PRINT 

"Program;  CAL  READ 

PRl” 

110 

PRINT 

120 

PRINT 

n 

This  program  aa<iusntlally  sots  tha  CAL2000  calibration" 

130 

PRINT 

m 

n»doa  and  roads 

tha  corraspondlng  intamal  Praasurs  Standard 

140 

PRINT 

H 

for  that  mods . " 

ISO 

PRINT 

160 

PRINT 

•• 

PB 

Poaltlva  high  ranga  praasurs  to  CAL(+)" 

170 

PRINT 

*• 

PM 

Poaltlva  mid  ranga  praasurs  to  CAL(+)" 

180 

PRINT 

•* 

PL 

Poaltlva  low  range  praasurs  to  CAK-f)" 

190 

PRINT 

ZO 

CAL(+)  &  REF(-)  connactad  togathsr" 

200 

PRINT 

*• 

NL 

Nagativa  low  ranga  praasurs  to  R£F(-)" 

210 

PRINT 

** 

HM 

Nagativa  oUd  ranga  praasurs  to  REF(-)" 

220 

PRINT 

*• 

NH 

Nagativa  high  range  prassurs  to  R£F(-)" 

230 

! 

240 

INPUT 

"Display  raaulta  to 

CRT 

or  PRINTER?  (0-CRT  1-PRINTER)" .Results 

230 

IF  Raaultawl  THEN 

280  FRIMTZR  IS  711 
270  END  IT 

280  CONTROL  0,3:3  ISat  OTR  A  RTS  to  aetlva  for  CAL2000  configuration 

200  IHTESOt  Error, Talua 
300  REAL  Pxaagura(l:7) 

310  DIM  Commaaid  ■0daS(l;7)(2],PraasuraS(3] 

320  CaiMnd_aod^(l)-'‘NB'' 

330  Cl'— andj»odaS(2)"“NM" 

340  Cl— ■iid~B»daS(3)-“WL" 

330  Ci—aiid_modaS  (41m*  20" 

360  CaaaBand_aodaS(S}>'*PL" 

370  Coanand_aiodaS(6)>”Itl" 

380  CoaBand_BiQdsS<7)-''FB” 

300  ON  ERRiCn  GOTO  Flnd_srror 

400  OWTPUT  0;-IC":CHRS<l3);EHD  'Initlallza  CAL2000 

410  HALT  1.3 

420  Sand  coamand:  I 

430  FOR  I-l  TO  7 

440  OUTFOT  8;Coamaad_aodaS(I) ;CBRS(13) ;EHD 

430  WAIT  1.3  IHalt  tlma  to  allow  calibrator  stabilization 

460  OUTPUT  0;''RP'';CHRS(13);END 

470  ENTER  0  USIHO  ''#,SD.3DESZZ,K'';Frossuzo(I);ProasuraS 

480  GOTO  No^arror 

400  Flnd_arzor:  I 

300  STATUS  9, 10; Error 

310  STATUS  9.6;7aluo 

320  Error_CQdaS~IVALS(Error,2) 

330  PRIHT“"Ragiatar  10 : 

340  PRINT  "Ragistar  8: 

330  Ro_arror : ! 

380  “iDISP  "FZ  TO  CONTINUE" 

370  (PAUSE 

380  NEXT  I 
300  Prlnt_rasults; I 
800  PRINT 
610  PRINT 

620  PRINT  "CAL2000;  Calibration  nodss  and  prassuras."  . 

830  PRINT 

840  PRINT  USING  "ZX.K. 5X,K" ; 'Moda" . "Prassura  (In  Hg)" 

830  PRINT 

Figure  A20  ZOC-14  DAS  Program:  CAL_READ_PR1 


■■ :  Er  ror_coda3  (9,161 
":Valua7cHRS(Valua) 

!Staps  usad  to  datanalna  wait  tlma  batwaan 
iCALMOD  atapa.  ZOC  output  connactad  to  tha 
!0-acopa,  uaa  atopwatch  to  aisssurs  aattllng 
I tlma  of  dc  voltage  from  ZOC. 
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880  F<»  I-l  TO  7 

870  FRIHT  USING  " 3X , K .  lOX .  30 . 40" ; Comand  nodaS(I) . PrasauraC I ) 

880  NEXT  I 

890  Finish:  I 

700  FRIMTIll  IS  CRT 

710  DISF  "Pxass  F2  to  contlnua" 

720  PAUSE 

730  LOAD  'ZOC  MENU", 10 
7*0  END 


Figure  A20  (cont)  ZOC-14  DAS  Program:  CAL_READ_PR1 


116 


10  !  Progm:  TABULATE_ZOC 

20  I  Oaaerlptlon;  Tabulates  data  cooipllsd  from  program  SCAN_ZOC_01 . 

30  DIM  0ata_dlsel3(23I 

40  DIM  Data~dtse23[23] 

SO  Input :  I 
80  CLEAR  SCREEN 

70  FRIRT  "Frogran  tabulatas  Zoe  praaauras  and  calibration  data  from" 
ao  PRIMT  "tha  SCAN_Z?X:_03  program." 

90  IHPOT  "Zoc  #  (iTe.sT,  data  (ntOD),  and  tun  #  of  data  to  bs  ravlawad: " , Zoc .DataS.Run 
100  CLEAR  SCREEN 

110  Daba_fllal3-"ZC''&VAL3<Zae)&0ata3&VAL3(Run) 

120  Data~flls23-"ZR''aVALS  ( Zoe  )U>ats3&VAL3(Rmi ) 

130  Data'diaelS-Data.fllalSA" ; . 700 , 0 , 1~ 

140  Data_dlse234ata~tlla23&'’:  ,700,0,1" 

130  ASSI^  ■Data_paUil  TO  0ata_dlicl3 

180  ASSISH  tData_path2  TO  Data~dlae23 

170  REAL  R1,N2 

180  STATUS  IData_pathl,3;Nl  !  Datanalns  number  of  records 

190  STATUS  tData_path2,3;N2  t  Datarmlna  numbar  of  records 

200  ALLOCATE  REAL  C(R1-1,10)  t  Daflna  REAL  array  of  records 

210  ALLOCATE  REAL  0(1;R2,32)  )  Daflna  REAL  array  of  records 

220  ENTER  •Data_pathl:C(*) 

230  ENTER  •Data_path2;0(*) 

240  I 

230  INPUT  "First  port  of  calibration  data  to  bo  displayed  (0~Exlt) ; " ,Port_o 
280  IF  Port_o-0  THEN  Finish 

270  INFUT  "Last  port  of  eallbratlon  data  to  be  displayed :", Port_f 
280  INPUT  "Print  raaulta  to  CRT  or  Printer  (O^RT  l^Prlntar)?"  ,Prt 
290  IP  Pzt-0  THEN 

300  PRINTER  IS  CRT 

310  ELSE 

320  PRINTER  IS  711 

330  END  IF 

340  P«lnt_roatalta :  t 

330  PRINT  "Raduead  Data  Tabulation  at  a  aaopla  rata  of"; 1/C(0,0) ; "  Bs" 

380  FRIRT 

370  Fonsatl; IMAGE  K,2X,K,2X,K,2X,K 

380  PRINT  USING  Formatl; "Port" ,  "Sampla  l","Saripla  2", "Sample  3" 

390  ForaMt2;IMACE  4D,2X,40.3D,2X,4D.3D,2X,4D.3D 

400  !•!  !I0  Data  for  a  given  sampling  numbar 

410  FOR  P-Port  o  TO  Port  f 

420  PRINT  USING  Fotmat2:P,D(l ,P) ,D(I+1, P) ,D(I+2,P) 

430  NEXT  P 

440  FRIRT 

430  PRINT  "Calibration  Data  Tabulation  for  Zoe#";Zoe 
480  PRINT 

470  PRINT  "Prassura  voltage  rsadlnga;" 

480  Fonaat3 : IMAGE  K,4X,K,8X,K,SX,K,6X,K,8X,K.6X,K,8X,X 

490.  PRINT  USING  Format3 ; "Port" , "NH" . "NM" , "NL" , "ZO" , "PL" , "PM" , "PH" 

300  FoxBMt4 ; IMAGE  30,X, 3D. 3D,X, 3D . 30,X,30 . 3D.X, 3D. 3D.X. 3D . 3D,X. 3D . 3D.X, 3D . 3D 
310  PRINT  USING  FormatA ; 0 ,C(0 , 4 ) ,C(0, 3) ,C(0. 8) ,C(0 . 7) ,C(0, 8) ,C(0 , 9> ,C(0 , 10 ) 

320  FOR  P-Port  o  TO  Fort  f 

330  PRINT  USING  Formatl; P,C<P, 4 ) .C(P, 3) ,C(P. 6) .C(P, 7) .C(P. 8) . C(P. 9) , C(P. 10) 

340  NEXT  P 

330  HUNT 

380  PRINT  "Calibration  polynomial  coafflciants  for  Zocf":Zoc 

370  Formats: IMAGE  K, 8X,K, 18X,K, 16X,K, 10X,K 

380  PRINT  USING  Formats; "Port" , "AO" . "Al", "A2" , "A3" 

390  FOR  P-Port  o  TO  Port  f 

800  PRINT  P:TAB<3):C<p70);TAB(24):C(P.l):IAB(43):C(P.2):TAB(62):CtP.3) 

810  NEXT  P 

820  I 

830  ASSIGN  8Data_pathl  TO  • 

640  ASSIGN  8Data  path2  TO  * 

850  DEALLOCATE  c7*) 


Figure  A21  ZOC- 14  DAS  Program:  TABULATE_ZOC 
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880  DEAUOCATE  D<*) 

870  I 

880  IIIPUT  "Ravim  data  or  Exit  (0-Exlt  l«Ravla«*) .Action 

890  IF  Aetlon-O  THEM  Flnlah 

700  FRlirr 

710  OOTO  Input 

720  Flnlah;  I 

730  FRUITER  IS  CRT 

740  LOAD  "EOC  MBIIU'',10 

730  EHD 


Figure  A21  (cont)  ZOC-14  DAS  Program:  TABULATE_ZOC 
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10  I  Program;  LS_PLOT 

20  I  Daaerlpt;  Plots  calibration  rssulta  and  Lsast  Square  cueva  from 

30  !  data  provided  by  SCAN  ZOC  04 

40  ! 

30  COM  /Plot_labals/  REAL  Xo.Xf, Yo.Yf.Di.Dy.ritlaSfSOI .X_labalSt501 , Y_labelSt30] 

60  !  Input  variables - — - 

70  CLEAR  SCREEN 

80  PRINT  "ProgrmB;  LS  PLOT" 

90  PRINT 

100  PRINT  "Program  plots  ths  calibration  curve  from  Laast  Squara  eoafflclsnts" 

110  PRINT  "and  tha  calibration  data  points  contain  In  ths  Calibration  Data  Fils.” 
120  PRINT 
130  PRINT 

140  PRINT  "Press  F2  to  eontlnua  after  calibration  display  Is  plotted" 

130  PRINT  "Proas  <Shlft>  <Duaip  6rsph>  for  printout  of  plot  on  tha  printer" 

ISO  INPUT  "Enter  Calibration  Data  file  name:".Oata_fllsS 
170  Loop;  I 


180 

190 

200 

210 

220 

230 

240 

230 

260 

270 

280 

290 

300 

310 

320 

330 

340 

330 

360 

370 

380 

390 

400 

410 

420 

430 

440 

430 

460 

470 

480 

490 

300 

310 

320 

330 

340 

330 

360 

370 

380 

390 

800 

810 

620 

630 

840 

630 


INPUT  "Enter  Port  #;".P 

INPUT  "Enter  odn  range  of  pressure  reading  (In  Bg);",Xo 

INPUT  "Enter  max  range  of  pressure  reading  (In  Bg):",Xf 

INPUT  "Enter  adn  range  of  Zoc  voltage  reading  (Volta); ".To 

INPUT  "Enter  max  range  of  Zoo  voltage  reading  (Volts) ;",yf 

INPUT  "Plots  DUMPED  to  Think  Jet  or  Laser  Jet  Printer ;( O^TJ  1>LJ)" ,Dimip_davlca 
IF  DtBnp_davles«l  IREN 
DUMP  DEVICE  IS  9 
ELSE 

DUMP  DEVICE  IS  711 
END  IF 
I 

TltleSe"Laaat  Square  Plot  of  CAL2000  Calibration  (Port#  "&VALS(P)ft"  )" 
T_lsbel8--Volta" 

E_lsbelS-"Pressure  (In  Hg)"  , 

Ox^lO  (Tie  marks  par  X-axls  on  plot 

Dy"*12  ITie  amutks  per  T-axla  on  plot 

CLEAR  SCREEN 
I 

I  Load  data  -- — — — -™ — - — -- 
DIM  Data_dlseS(23] 

Data_dlseS-0ata_f llaS«” ; , 700 , 0 , 1" 

ASSIGN  •Data_path  TO  Data  dlaeS 
REAL  H 

STATUS  •0ata_path,3;N 
ALLOCATE  REAL  D(N-1,10) 

ENTER  ■Data_path;0(*) 

I 

I  PLot  routine  - - - - - - 

CALL  Plot  tRountlns  to  display  graph  background 

FOR  X>-3  TO  3  STEP  .1  (Plot  calibration  curve 

Fx-{D(P,0)+D(P,l)*X+0(P,2)*X*2+0(P.3)*X*3) 

PLOT  Fx.X 
NEXT  X 

Sc'.Ol  (Scale  size  of  plotting  squares 

FOR  I**4  TO  10  (Plot  Squares  around  data  points 

PLOT  0(0, I) ,0(P, I) , ~2  (Move  pen  to  data  point  position 

CALL  Square(Xo,Xf,yo,yf,Sc)  (Subrountlna  to  plot  squares 

NEXT  I 

ASSIGN  ■Oata_path  TO  * 

( 

PAUSE 

CLEAR  SCREEN 

INPUT  "Graph  another  calibration  plot;  (  0-Ho  l-Yss  )", Again 
DEALLOCATE  0(*) 

IF  Again-l  THEN  Loop 
LOAD  "ZOC  MENU" , 10 
END 


(Define  data  transfer  path 


(Determine  length  of  data  file 
(Allocate  an  array  to  accept  data 
(Load  data  Into  sisuajiy  In  array  D(*) 


Figure  A22  ZOC-14  DAS  Program;  LS_PLOT 
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790 
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870 

880 
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910 

920 

930 

940 

950 

980 

970 

980 

990 
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1080 
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SUB  Plot 


I  Subxoutlna  to  display  plot  acxaan,  laas  tha  plots  of  any  curvas 
I  foe  tha  spaelflad  varlablaa  in  tha  CCM  /Plot  labals/  llna. 

COM  /Plot_labala/  Xo,Xf .Yo.Yf .D*.Dy,Tltla3,X~labalS.Y_lobalS 


0X48  SC8EEN 
KEY  LABELS  OFF 
GIHIT 

X_raiiso*Xf-Xo 
Y~raii«a-Yf-Yo 
LOUS  6 

MOVE  100*RAIIO/2,100 
CSIZE  3 
LABEL  TltlaS 
MOVE  100*KATIO/2.0 
L0R6  4 

LABEL  X  labalS 
DEG 

LOIR  90 
LORO  0 
MOVE  0,50 
LABEL  Y  labaLS 
LDIR  0  ~ 

LORG  2 

VIEWPORT  10, 00*RAIIO, 10,90 
FRAME 


llnltlallza  graph  routlna 

iLangth  of  X-axls 

ILangth  of  Y*azla 

tChaxaetax  xat  pt:top  eantar 

IMova  eoxsox  to  acxaan  loe  for  Labals 

tSlzaa  laballng 

I  Plot  tltla 

IMova  euxaox  to  bottoD  eantax  acxaan 
IChaxactax  raf  pt:bottaa  eantar 
IX-azls  labal 
IDaaig  dagraas  for  LDIR 
tSata  Y-azls  labal  on  and 


lY-azia  labal 

IRaaat  labal  to  horizontal  oclantatlon. 
IChx  raf  pt:laft  eantar 
ISata  graph  seraan  slza 
I Box  around  VIEWPORT 


WINDOW  Xo,Xf,Yo,Yf  ISat  axis  langtha  In  VIEWPORT 

AXES  X_xanga/Dz, Y_ranga/Dy,Xo,Yo  lAxaa  Intaraaet  at  lowar  laft 

AXES  X_ransa/Dx, Y_ranga/Oy,Xf , Yf  lAxaa  Intaraaet  at  uppar  right 

GRID  X_ranga/0x,Y_raBga/0y,Xo,Ya,0z,0y, .001 

CLIP  OFP  I So  labals  oan  print  outsida  VIEWPORT 

CSIZE  3.0,. 4  lAxaa  labal  atsa 

IxatS  8  *  INiabar  X-axia 


FOR  I>Xo  TO  Xt  STEP  X  ranga/Dx 
MOVE  I,Ta>.01*T  ranga 
LABEL  USING  ''#,R'’;I 
NEXT  I 

LORG  8  INuabar  Y-axls 

FOR  I-Yo  TO  Yf  STEP  Y  ranga/Dy 
MOVE  Xo-.01*X_tBnga7l 
LABEL  USING  "j.K";! 

NEXT  I 
CLIP  ON 
I 

SUBEND 


SUB  Squara(Xe,Xf,Yo,Yf,Se) 

ISubroutlna  to  plot  squaraa  around  tha  local  origin  daslgnatad 
Iby  tha  PLOT  stataoMnt. 

Xd>Se*(Xf-Xo)  IX  dlaplacanant  for  RFLOT 

Td-3e*(Yt*Yo) •RATIO  IT  diaplacaoiant  for  RPLOT 

RPLOT  -Xd,Yd,-2 
RPLOT  Xd,Yd,-l 
RPLOT  Xd,-Yd.-1 
RPLOT  -Xd,-Yd,-1 
RPLOT  -Xd.Yd,2 
SUBEND 


Figure  A22  (cent)  ZOC-14  DAS  Program:  LS_PLOT 


10  iProstani:  Z0C_MENU 

20  !D«scrlptlon;  M«nu  for  utilization  of  tha  Zoc~14  and  CALSYS  2000. 
30  CLEAR  SCREEN 
40  CONTROL  CRr,S;4 

SO  KEY  LABELS  ON 

60  ON  KEY  1  LABEL  "SCAN  1-3ZOCS"  GOTO  Sean_l 

70  ON  KEY  2  LABEL  "READ  ZOCDATA"  GOTO  Raad~z 

80  ON  KEY  3  LABEL  "PLOT  ZOCDATA"  GOTO  Plot” 

90  ON  KEY  4  LABEL  "READ  CALSYS20"  GOTO  Calays 
100  ON  KEY  S  LABEL  "TABULATECAL  DATA  "  GOTO  Tab_data 

110  ON  KEY  6  LABEL  "PLOT  CALDATA"  GOTO  Plot_cal~ 

120  ON  KEY  7  LABEL  "HP6g44A  MENU"  GOTO  Main 

130  ON  KEY  8  LABEL  "EXIT  MENU"  GOTO  Exit 

140  I 


130 

PRINT 

"Zoe  Elaetronle  Prssaura  Module  Operation 

Menu" 

180 

PRINT 

170 

PRINT 

"Itaa; 

Function 

180 

PRINT 

190 

PRINT 

"  Scan 

1-3  ZOC-14  Modules  (32  porta  aa) 

Fl~ 

200 

PRINT 

"  Read 

reduced  data  froo  ZOC-14  andula 

F2" 

210 

PRINT 

"  Plot 

rsduead  data  fraa  ZOC-14  oioduls 

F3" 

220 

PRINT 

"  Road 

CALSYS  2000  calibration  presauraa 

FI¬ 

230 

PRINT 

"  Read 

tabulated  calibration  data 

PS" 

240 

PRINT 

-  Plot 

Calibration  data 

P6" 

230 

PRINT 

260 

PRINT 

"  BP6944A  Main  Menu 

F7" 

270 

PRINT 

"  Exit  Menu 

F9" 

280 

1 

290 

Bold: 

I 

300  aoio  Hold 

310  Sean  1:  I 

320  CLEAR  SCREEN 

330  PRINT  "Leadlns  SCAN  ZOC  03" 

340  LOAD  BIN  "/MORKSTATIoHsTbIHS. 1/TRANS" 

330  LOAD  BIN  "/VIORXSTATIONS/BIH3. 1/SERIAL" 

360  LOAD  "SCAN_ZOC_03" .  10 

370  Plot:  ! 

380  LOAD  BIN  "/WORXSTATIONS/BINS .  1/GRAPHX" 

390  LOAD  "PLOI_DATA" , 10 

400  Raad_z :  t 

410  LOAD  "READ_ZOC".10 

420  Calays :  I 

430  LOAD  BIN  "/WDRKSTATIONS/BIN3. 1/SERIAL" 

440  LOAD  "CAL_READ_PR1" , 10 

430  Tab  data:  I 

460  LOAD  "TABULATE_ZOC",10 

470  Plot_eal:  ! 

480  LOAD  BIN  "/VnRXSTATIOHS/BINS . 1/GRAPHX" 

490  LOAD  "LS_PLOT",10 

300  Main:  l” 

310  LOAD  "HP6944A_MENU" . 10 
320  Exit: CLEAR  SCREEN 
330  END 


Figure  A23  ZOC-14  DAS  Program;  ZOC_MENU 
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APPENDIX  B.  ZOC-14  PROGRAM  DEVELOPMENT  CHRONOLOGY 

The  following  prargraphs  provide  a  chronological  summary 
of  the  SCAN_ZOC  program  development  using  the  HP14753A  CAT 
Programs.  First,  the  HP6941A  manuals  required  the  hardware 
configuration  of  the  I/O  cards  be  determined.  Second,  review 
of  the  interface  requirements  to  operate  the  ZOC-14  units 
identified  the  binary  ZOC  address  codes  to  set.  The  HP69730A 
Relay  Output  Card  then  provided  the  closure  contacts  required 
to  set  the  required  address  codes^^.  The  HP69759A  A/D  Card 
provided  the  signal  conversion  process  to  read  the  ZOC-14. 
I/O  card  edge  connectors  are  fabricated  from  hardware  supplied 
with  the  I/O  cards  to  provide  ths  interface  between  the  cards 
and  the  ZOC-14.  The  program  '•SCAN_ZOC_01'' ,  Figure  Bl, 
provides  control  and  reads  data  voltage  values  from  the  ZOC- 
14.  SCAN_ZOC_01  was  the  simplest  in  the  series  of  development 
programs . 

''SCAN_ZOC_02"  ,  Figure  B2,  integrated  new  programming 
features  and  hardware  into  a  complete  data  acquisition  program 
for  utilizing  one  ZOC-14.  The  significant  features  were, 

♦  segmenting  the  main  program  into  "blocks”  of  routines 

♦  utilizing  arrays  for  data  processing 

Refer  to  Ref.  2  6  for  details  on  the  Relay  Output  Card. 
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#  hard\»are  integration  of  the  CALSYS2000 

a  integration  of  the  Buffer  and  Timer  Functions 

a  data  reduction  using  Least  Squares  calibration  curve 
fitting 

a  data  storage  to  the  hard  drive  using  BUFFER  arrays. 

This  program  did  not  utilize  the  Zero  Operate  and  Calibrate 
method.  Calibration  data  were  first  collected  and  stored  in 
a  BUFFER  array.  Raw  pressure  data  were  then  collected  and 
retained  in  the  HP69791A  Memory  Card.  Calibration  data  were 
reduced  using  the  Least  Squares  routine.  The  calibration  data 
were  then  transferred  to  the  hard  drive  calibration  data  file. 
Raw  pressure  data  were  extracted  from  the  memory  card, 
reduced/  and  stored  on  the  hard  drive  reduced-pressure  data 
file. 

BUFFER  arrays  were  used  for  the  high  speed  data  handling 
capabilities.  A  data  transfer  was  initiated  with  a  buffer  and 
the  computer  executed  the  next  line  without  waiting  for  the 
transfer  to  complete.  This  process  allowed  data  transfer 
while  the  computer  was  performing  the  next  command,  thereby 
minimizing  processing  time. 

SCAN_ZOC_02  did  not  control  the  CALSYS2000.  Control  was 
provided  by  a  separate  386  desk  top  ccmpixter  with  a  modem 
connected  to  the  CALSYS2000  through  the  computer's  RS-232C 
port.  Interfacing  the  HP9000  with  the  CALSYS2000  required 
resolution  of  RS-232C  data  stream  handling  techniques. 
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''SCAN_ZOC_03”,  Figure  B3,  introduced  new  features.  Over 
SCAN_ZOC_02,  the  new  features  were; 

♦  the  use  of  sxibroutines  and  the  CASE  statements  to  provide 
multiple  ZOC-14  interfacing  into  the  data  acquisition 
system. 

♦  incorporating  full  control  of  the  CALSYS2000  using  HP9000 
commands . 

The  techniques  to  control  the  CALSYS2000  are  discussed  in 
section  II.B.2.d. 

"SCAN_ZOC_04'' ,  Figure  B4,  incorporated  the  following 
additional  features, 

♦  incorporation  of  a  second  ZOC-14  into  the  process  to 
validate  multiple  ZOC-14  operation 

e  command  lines  to  handle  a  second  CAIMOD  2000 

a  incorporation  of  the  Zero  Operate  and  Calibrate  principle. 

The  command  line  to  operate  a  second  CALMOD  did  not  interfere 
with  the  current  CALSYS2000  operation  since  this  command  used 
an  address  character  ”2”  and  the  installed  CALMOD  only 
responded  to  address  character  "1". 

Integration  of  the  "Zero  Operate  and  Calibrate”  prihciple 
required  collecting  measured  pressure  data  followed  by 
calibration  data.  This  process  posed  a  memory  storage  problem 
for  multiple  ZOCs.  The  problem  was  rectified  by  transferring 
the  raw  data  to  a  hard  drive  data  file  for  recall  off-line. 
Three  advantages  were  associated  with  this  technique; 
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1.  Programming  simplification,  by  not  having  to  identify  raw 
and  calibration  data  separately  on  the  memory  card. 

2.  Additional  data  collection  capacity  was  made  available  by 
sequential  utilization  of  the  memory  card. 

3.  Multiple  data  and  calibration  runs  could  be  conducted 
which  were  limited  only  by  the  hard  drive  storage 
capacity. 

Data  reduction  could  be  accomplished  at  any  later  time, 
providing  considerable  flexibility.  It  is  to  be  noted, 
however,  that  sufficient  space  on  the  hard  drive  wa<=;  "equired 
to  be  set  aside  to  store  the  reduced  data.  The  user  must 
manage  hard  drive  space  when  acquiring  large  quantities  of 
data.  Transfer  of  raw  and  calibration  data  to  the  floppy  disk 
is  one  solution.  This  would  require  the  user  to  generate  a 
transfer  progrM  similar  to  the  PILE_XFER  program.  Figure  D17 , 
on  the  /UTILity  directory. 

The  Scan  Frequency  input  (1-100,000  Hz)  for  the 
SCAN_ZOC_02,  SCAN_ZOC_03,  and  SCAN_ZOC_04  programs  was 
improperly  implemented.  The  Timer  Function  required  that  a 
specified  "Period"  be  input  to  define  the  length  of  the  "step" 
or  logic-high  portion  of  the  square  wave  trigger  output^®. 
The  programs  previous  to  SCAN_ZOC_05  used  the  reciprocal  of 
the  Scan  Frequency  as  the  Period  to  be  input.  This  resulted 
in  square  wave  periods  twice  the  intended  value.  SCAN_ZOC_05 
correctly  adjusts  the  Scan  Frequency  input  used  to  define  the 


Ref.  15  defines  the  input  variables  for  the  Timer 

Function. 
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Timer  Function  Period  value,  changing  the  input  frequency 
range  to  ”1-50,000  Hz”.  In  SCAN_ZOC_05  the  Scan  Frequency 
input  value  is  first  inverted,  then  the  resulting  period  is 
divided  by  two  to  obtain  the  Timer  Period  value.  In  the  first 
three  programs  this  division  by  two  was  omitted  and  thus  the 
programs  gave  a  two-fold  decrease  in  the  data  sampling  rate. 
This  error  was  discovered  during  the  development  of  the 
PLOT_DATA  program.  Figure  A20.  The  program  plots  reduced 
pressure  data  versus  time  for  a  specified  ZOC  port  n\imber. 
The  detected  error  was  detected  when  the  plot  showed  only  half 
the  niunber  of  data  points  for  the  calculated  time  span.  That 
SCAN_ZOC_05  uses  the  correct  Timer  Period  value  was  verified 
by  the  PLOT_OATA  program. 
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Program;  SCAH_20C_01 

Doaerlptlon:  Application  program  to  oparata  RP6944A  collactlng  voltaga 
raadlngs  from  a  ZOC  using  HP6944A  cards. 

Program  provldaa  voltaga  raadlng  from  a  slngla  TOC  for  a 
apaclflad  port  numbar  1-32. 

This  program  was  primarily  an  Instruction  aid  to  laarn  about 
HP6944A  operation  and  ZOC  oparatlon. 


!  Baxdwara; 

!  Hotas :  1 . 


! 

t 

I 

! 


RP6944A  Multl-proeasaor 

-(1)  Ralay  Output  Card  (HP69730A) 

-(1)  300  kHa  A/D  Card  (HF697SgA) 

(1)  ZOC-14  32  port  Elaetronic  Prasaura  Scanning  Modula 

ZOC  address  driven  by  Ralay  Output  card  connecting  ZOC 'a 
A0-A4  Isada  to  tha  Ralay  Output  card's  edge  connector; 

ZOC  Ralay  Contact 

AO  A 

A1  C 

A2  E 

A3  B 

A4  K 


! 

! 


Ralay  Contacts  1,3, 3, 7,  &  9  ware  connected  together  and 
tlad  Into  ZOC'a  ground  wire  to  complata  tha  address  circuit. 
(Ref  ZOC-14  Instruction  Manual  dwg  8329  aht  3  of  3) 

2.  ZOC's  Output  Plus  lead  «aa  connaetad  to  A/0  adga  card 
eonnactlon  H,  and  ZOC  Output  CrMinn  connaetad  to  A/0  Y 
(Raf  HP89739A  Manual  pg  2-3,  fts.  2-1) 

3.  ZOC  potrorad  by  OA-2  Op  Amp  Daalgnsr  Intamal  pomsr  supply. 

4.  CALSY8200a  ssta  tha  dlffarant  ZOC  aodas  through  a  pnsuawtle 
switch  SMttlz.  CAUYSZOOO  defaults  to  tha  Zero  Oparata  aiods 
whan  anszgisad  providing  CTL2  (Px  CTL)  control  prassura  to  tha 
ZOC,  and  allow  sanor  prasaura  raadlngs  of  any  of  tha  32  ports. 

3.  A  by-pass  valva  Is  Inatallad  batwosn  CALSYS2000  PSC  and 
CALHOD  to  mlnlmlsad  Hltrogsn  usags  by  closing  ths  valva. 

CALMOD  Is  not  oparatlvs  until  aztamal  ASCII  conmands  are 
provldad  via  RS_232C  eabls  to  ths  CALMOD  following  CALSYSZOOO 
snarglzlng. 


!  LOADSUB  ALL  FROM  "COBFIGURE" 

!  LOADSUB  ALL  FROM  "LIBRARY3.1" 

I 

COM  /Isaaeom/  IRTEOER  X(l;1106) 

COM  /Iaaa_hsap/  lsss_haap(1000) 

COM  /Ramas/  Zoe_addrsss, Zoe_praasura 
ConfiguraC'Aak  ^"."ZOC  COHFIG  01" ) 

! 

Systam_lnlt 


(Tbaaa  two  cocosands  must  be  inltatsd 
I to  append  rsqulrad  SUB  and  CSUB 
I  routines  to  ths  and  of  this  program 


I Identify;  Ralay  Output,  A/D 
!Load  Configuration  Flla,  and 
irsquast  for  fils  ravl aw/ alteration. 
!Inltlallzs  Ralay  Output  and  A/D 


BODY  OF  APPLICATIOH  PROGRAM 


REAL  Port_rsndlng,Port_raq 

INPUT  "Enter  Port  #  (1-32);  ".Poct_req  (Input  port  # 

Output (Zoc_addrasa, 32- Port_req)  (Select  port  #  by  Relay  Output 

Input(Zoc_prassura,Port_readlng)  (Read  ZOC  voltaga  value  from  A/D 

!  “ 

PRINT  "Port  #" : Port_raq: "  reading;  " ; Port_reoding 

I  ~ 

STOP 

I  - £00  OF  MAIN  PROGRAM - - 

t 

END 


Figure  B1  Development  Program:  SCAN_ZOC_01 
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!  Program:  SCAJI_ZOC_02 

!  Daacrlptlon:  Application  program  to  operats  BP6944A  collactlng  pressure 
I  readings  from  one  ZOC-14  32  port  module  using  the  CAL2000 

!  to  provide  calibration  data,  reduce  raw  pressure  data  and 

!  store  data  to  the  hard  drive. 

!  Hardware:  BF6044A  Multi-procasaar 
!  -300  kHs  A/D  Card  (HP6973gA) 

!  -High  Spaed  Haatory  Card  (HF69791A) 

I  -Tlmar/Faeat  Card  (HF69736A) 

!  -Counter  Card  (HP69773A) 

I  CAL2000  Calibration  Module 

t  ZOC-14  32  port  Electronic  Pressure  Scanning  Module 

I  Mote:  This  program  utilises  only  one  (1)  Zoc  Module. 

!  Buffer  Memory;  63338  16-blt  data  words  in  BP69791A 
!  Timer;  Maximum  32676  counts  for  one  HF69773A 

CCH  /Issacom/  IHTEGER  X(l;1106) 

COM  /Isas_haap/  Iaas_haap(1000) 

COM  /Names/  Relay, Buffer .Adel, Timer 
Configure < "Menu_of f “ . "ZOC  CONFIG_02" ) 

IConf Igur a ( " Aak_me" , " ZOC_COHF1G_02“ ) 


BODY  OF  PROGRAM 


INITIAL  PARAMETERS 


240  Body;  I  — 

230  ! 

260  Input  variables;  I- 
PRINT  "Frogrms;" 

PRINT  "  -  Seans  a  single  Zoc- 14  tsodula  with  32  pressure  sensing  ports.” 

PRINT  "  -  Stores  reduced  data  on  the  hard  drive  (:, 700,0, 1) . " 

PRINT  "  -  CAUOOO  Calibration  Madula  used  for  the  referanea  pressure  standard. 
PRINT  *  *  Raw  pressure  data  reduced  using  calibration  data  from  CAL2000" 

PRINT  '*  and  data  from  Zoes  in  the  calibration  mode." 

PRINT 

PRINT  "Input  variablas:  Sean  frequency  (1-100,000  Bs)" 

PRINT  "  Samples  per  Port  (1-1021)" 


270 

280 

290 

300 

310 

320 

330 

340 

330 

360 

370 

380 

390 

400 

410 

420 

430 

440 

430 

460 

470 


! 

I  Max  speed  of  BP  system  is  Par iodwO. 000002  sec.  or  300  kBs. 

! 

PRINT 

INPUT  "Enter  data  rata  (1-lOOkBz) ;",Bx 

INPUT  "Nianber  of  samples  par  port  (1-1021);  ".Saaipla  number 

Pariod-l/Bs 

PRINT 

PRINT  "Data  acquisition  rata;  "; 1/Period; ~  Bz~ 

PRINT  "Nuoibar  of  samples  per  port:  " , Sample_number 

PRINT  "Total  raw  data  acquisition  tiara:  ",Psriod*Sainple  numbar*32;"  sec.' 

! 


480  Cal  initial:  I- 


CALIBRATION  SET-UP 


490 

r 

300 

SEAL  Cal( 1:1120) 

1  Calibration  collection  array  for 

310 

t  3  aomples  per  port,  7  calibration 

320 

1  runs  using  CAL2000. 

330 

REAL  Zoe_eal(32, 10) 

!  Calibration  data  array.  Format: 

340 

Zoc_eal(0 , 0 )>Fsriod 

530 

Zoc_cal(0,  l)>Sainpls_number 

360 

!  ^ 

370 

!  For  ports  1-1  to  32 

360 

t  Row  0;0000HBHMNLZO 

PL  PM  PH  (pressure  Hg.) 

390 

!  Row  i;  AO  A1  A2  A3  NH  NH  NL 

ZO  PL  FM  PH  (LS  coef, press  volts) 

600 

!  LS  co«f*  Ltast  Squares  curve  fit  coef  Cor  third  order  polynomial. 

610 

! 

620 

Callbrats-1 

!  Set  calibration  run 

630 

Count>160 

!  Set  count  to  collect  calibration  data 

640 

Index"! 

!  Set  index  Cor  cal  data  collection 

650 

PRINT 
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660  PRINT  "Ensure  CAL2000  is  on-ilna  and  Initialized" 

670  PRINT 

680  PRINT  "Set  CAI.2000  calibrate  mode  (sequence;  NH. NM.HL, ZO. PL , PM, PH)" 
690  PRINT 

700  Cal_routlne;  I - 

710  INPUT  "Read  RP  value,  and  enter; ",Zac_cal(0,Indaz+3) 

720  PRINT  "Secondary  Pressure  Standard;  ~;Zoc_cal(0,Indsz+3) 

730  ! 


740  Sean  xocs; 


730 

760 

770 

780 

790 

800 

810 

820 

830 

840 

830 

860 

670 

860 

890 

900 

910 

920 

930 

940 

930 

960 

970 

960 

990 

1000 

1010 

1020 

1030 

1040 

1030 

1060 


!Nota:  Zoe  address  driven  by  Counter  Card  binary  output  at  edge  connection. 
!  Calibration  routine  collaets  3  sanples  per  Zoc  port, 
t  Raw  data  collection  follows  calibration  collection  routine. 


Halt_tlaia~IHT(Count*Period)-*'10 

Init(Tlmar) 

Sat_tliiMout  (Timer ,  Wal  t_t  ime ) 
Sat_eount ( Timer , Count ) 

Set_per lod ( Timer , Per lod ) 
Inlt(Buffer) 

Start (Timer) 

Walt  for(TlaMr) 


Set  Tisier  wait  time  to  +10  secs. 

Initialize  Timer  system 

Sat  Walt_for  period  of  xx  secs. 

Sat  Count  number  into  Timer 
Sat  Timer  pulse  length  in  secs. 
Initialize  Buffer  for  data  storage 
Start  data  saaipla  collection 
Data  aaoiplas  stored  in  Maonry  System 


I 

I  Collect  calibration  data  from  Memory  System 
IF  Callbrata~0  THEN  Raduca_eal_dat 

Input_rbloek(Buffar,Cal(*) , 160, (Indez-l)*160)!  Collect  cal  run  data 
Indax>Indaz+l 

IF  Indaz<8  THEN  Cal  routine  t  Loop  cal  data  collection  runs 

! 

I  Collect  taw  data  initialization 
CLEAR  SCREEN 

PRINT  Kaaet  Zoe  moda  to  read  praasure  data” 

DIS?  ”Fro8S  F2  to  eonbinue” 

PAUSE 

CLEAR  SCREEN 

PRINT  "Collaeting  raw  praasure  deta 
Calibrated 
Count-SaiBpla_nuaibar*32 


I  Set  parameters  to  collect  raw  data 


GOTO  Scan_zoca 
I 


!  Set  Count  as  function  of  saniple  number 
!  and  nuaiber  of  port  readings  (32)  on 
!  Zoe  for  raw  data  collection. 

!  Raw  data  run. 


1070  I  End  of  Zoe  scan  routine 

1060  Raduea_cal_dat: I - REDUCE  CALIBRATION  DATA - 

1090  I  Routine  to  reduce  Cal(*)  into  Zoc  eald.J) 

1100  I 

1110  REAL  A(3,3),B(3),C(3),Sun  z(6) ,A_inv(3.3)  I  Laaat  Square  reduction  arrays 
1120  PRINT 

1130  PRINT  "Reducing  calibration  data." 

1140  FOR  J-4  TO  10  •  Cal  runs;  HB.NM.NL, ZO, PL. FM. PH 

1130  FOR  !•!  TO  32  '  t  Zoc  ports  par  calibration  run 

1160  FOR  Kd  TO  4  I  Number  of  samples  per  cun 

1170  Zoc  cal(l,J)-Zoc  eald, J)+Cal(I+K*32+(J-4)*160) 

1180  NEXT  K 

1190  Zoe  eal(I,J)>Zoe  cal(I,J)/3  !  Average  of  5  samples  per  port  I 

1200  NEXT  I 
1210  NEXT  J 
1220  ! 


1230  Laast_squarea ; I 

1240  !  Calibration  data  reduction  using  Least  Squares  Polynominal  fitting. 
1230  ! 

1260  FOR  K>1  TO  32  !  Loop  for  each  port 

1270  • 

1280  MAT  C-  (0) 

1290  MAT  Sum_x-  (0) 

1300  ! 
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FOR  J~1  TO  8  !  Routins  to  roduc*  Individual  port  cal 

FOR  1-4  TO  10  !  data  Into  alaoianta  to  a  powar  x'J 

Siai_x(  J  )-Suni_x  (  J ) +Zoc_eal  (K .  I )  *  J 
NEXT  I  ~  ~ 

HCCT  J 


I 


I 


! 


! 

I 

I 

I 


FOR  I-O  TO  3  t  Oarlva  A  array 

FOR  J-0  TO  3 
A(I,J)-Subi 
REXT  J 
NEXT  I 
A(0.0)-7 

FOR  J-0  TO  3  I  Oarlva  C  array 

FOR  1-4  TO  10 

C(J)-C(J)+Zoc_eal(K,I)*J*Zoc_eBl<0,I) 

HEXI  I  “ 

NEXT  J 

MAT  A_liiv-  IIIV(A) 

HAT  B-  A_1bv*C  I  B  array  la  aatrlz  of  Laaat  Squara 

eoafflelanta  a0,al,a2,&  a3  for  polynomial 
aquation  flttlno  calibration  data  for  a 
apaelflad  port 

Zoo  eal(K,0)-B(0)  1  Collaet  Laaat  Squara  eoafflelanta 

Zoe~eal(K,l>-B(l) 

Zoa  eal(X,2)-B(2} 

Zo«~eal(K,3)-B(3) 


HEXT  K 


I 

Oata_traBafor:l - TRAMSFER  DATA  FH  HEMCRT  STSTD1  TO  HARD  DISC . 

t  RoutlBa  tranafara  data  from  Maaory  Syataa  to  hard  drlva  via  buffar  bloeka 
f 


I  Tranafar  calibration  data  and  eoafflelanta  to  hard  drlva 
DIM  Data  dl8elS(23]  I  Oaflna  atrlns  for  data  flla  naan 

Data  fllalS-''ZOC  CAL'^ 

Data^dlaelS-Oata^ZllalS*'* ; ,  700 , 0, 1' 

FORGE  0ata_dlaolS 

CREATE  BOAT  0ata_dlaelS,33,8*ll  t  Craata  BOAT  flla  of  11*8  byta 

ASSIOR  (0ata_pathl  TO  0ata_dlaelS  (  Aaalsn  path  to  hard  drlva 

OOTFOT  tData_pathl;Zae_eal(*)  I  x33  raeorda  and  stora  on  hard  drlva 

ASSIGH  tData_path2  TO  *  I  Cloaa  buffar  path 

I 


I  Raduclno  raw  data  and  tranafarrlns  data  to  hard  drlva 

FRlirr 


FRIRT  'Raduelna  raw  praaaura  data  and  tranafarrlns  data  to  hard  drlva . " 


IRTEGER  Data_lnt(0;32)  I 

REAL  0ata_raw(0;3'2)  I 

REAL  0ata~rad(0;32)  ! 

REAL  0ata~buffar2(0;32)  BUFFER  ! 

REAL  Data~buffar3(0;32)  BUFFER  t 

DIM  0ata_dlae2S(23I  ! 

DIM  Data~dlae3S(231 
REAL  Hd  ~ 

Data  flla2S-"Z0C_RAW'' 
Oata”flla3S-"ZOC  REDUCE" 


Data_dlac2S-0ata_flla2S«"; . 700,0. 1" 
Data  dlse3S-Data  fllaJSA": ,700,0. 1" 
PURtS  Data_dlae2S 
PURGE  Data  dlse33 

CREATE  BDAT  Data_dlsc2$. 10 . 8*33  ! 


Extractad  IRTEGER  raw  data 
Tranalatad  REAL  raw  data 
REAL  raducad  data 
Raw  data  tranafar  buffar 
Raducad  data  tranafar  buffar 
Oaflna  string  Cor  data  flla  nama 


Craata  BDAT  Clls  of  33*8  byte  records 

and  Initial  10  records 

Each  record  contains  one  scan  of  the 
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I  32  port  Zoc  In  REAL  prassur*  values 
!  eorxeetad  by  CAL2000  values 


1960 
1970 

1980  CREATE  BOAT  Data_dlsc3a . 10 . 8*33 
1990  ASSIGN  60ata_path2  TO  0ata_dlsc2S  t  Asslsn  path  to  hard  drive 
2000  ASSIGN  tOata_path3  TO  Data~dlae3S 

2010  Count_inblock*32  !  Nuobar  at  sataplas  par  block  transfered 

2020  Block_nunibar^ount/Count_inblock  !  Htaabar  at  transfer  blocks 
2030  I 

2040  fOR  Block'l  TO  Saaqpla_nuaibar  I  Loop  routine  to  transfer  data 

2030  ASSIGN  •BuffarjpatbS  TO  BUFFER  Data_buffar2(*) ; FORMAT  OFF 

2060  ASSIQI  •Buffar_path3  TO  BUFFER  Data_buffsr3(*);FORMAT  OFF 

2070  lnput_lbLoek(BaC2er,0ata_lnt(*),Caunt_inblock,l)!  Load  data  ssBiples  to 
2080  ~  I  buffer  In  blocks 

2090  Translata<A<lel,0ata_lnt(*>,0ata_rair(*)>t  Load  INTEGER  data  into 
2100  t  REAL  data  buffar  array 

2110  t 

2120  !  Routlna  to  reduce  raw  data  using  polynoislal: 

2130  I 

2140  I  Data_roduca  “  aO  +  al*x  +■  a2*x*2  +  a3*x*3 
2130  I 

2160  !  where  a0,al,a2,  A  a3  are  Least  Square  coaftlclants,  and  z  is 
2170  !  tha  Individual  port  raw  data  value. 

2180  I 

2100  FOR  K-1  TO  32 

2200  Data  rad(K)«Zoc  eal(K,0)*Zoc  caKK, l)*Data  raw(K)+Zoe  cal(K.2)*Data_raw(K)*2+Zoc_cal(K.3)*Data_raw(K)*3 

2210  NEXT  K~  ~  ~ 

2220  I 

2230  Daba_taw(0)*Parlod*(Bloek-l)  i  Store  raw  data  saa^pls  tlaa 

2240  0a6a_rad(0)>Perlod*(Bloek-l)  I  Store  reduce  data  saavls  tins 

2230  ! 

2260  MAT  Data  buEfarSw  Data  caw  I  tranafar  raw  A  rad  data  to  buffar 

2270  MAI  0aba~bttffac3w  Oata~rod 
2260  I 

2200  CONTROL  fBttffac_patli2, 4;  (Count  Inbleek^DeBI  Close  REAL  buffar  whan  full 
2300  CONTROL  IBuffarjpath3,4; (Count'lnbloek^DeB 

2310  TRANSFER  tBuffac_path2  TO  tOata^pathEI  Transfer  data  to  hard  drive 

2320  TRANSFER  aufferjpathS  TO  60ata_path3 

2330  ASSIGN  •Buffsr_path2  TO  * 

2340  ASSIGN  Uuffsr_pstta3  TO  * 

2330  NEXT  Block 
2360  I 

2370  STATUS  6Data_path3 , 3 ; Nd  !  Dstaralne  data  fils  length 

2380  ASSIGN  60ata_path2  TO  •  I  Closa  buffer  path 

2390  ASSIGN  iDatsjpatb3  TO  • 

2400  I 

2410  CLEAR  SCREEN 

2420  PRINT  'Calibration  data  flls;  ~ ;0ata_fllslS 
2430  PRINT  "Raw  data  file:  ' ;Data_flle2S 
2440  PRINT  "Reduced  data;  " ;Data_flle3S 

2430  PRINT  "Htanbar  of  records  (scans)  In  " ;Data_fllo3S; "  Is;  ";Md 
2460  PRINT 

2470  PRINT  "Use  READ_Z0C  to  read  data  from  " ; Data_f He2S : "  and  " ;Data_flle3S 
2480  PRINT  "Use  TABULATE_ZOC  to  read  calibration  data  from  " ;Data_f llelS 
2490  ! 

2300  Finish;! 

2310  DISP  "Press  F2  to  continue." 

2320  PAUSE 

2330  LOAD  "HP6944A  MENU"  ,  10 

2340  End  body;!  — - . END  OF  MAIN  PROGRAM - - - . . 

2330  ! 

2360  END 
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10  !  Progm;  SCA1I_ZOC_03 

20  I  Daserlptlon:  Application  pcogcan  to  oparata  BP6944A  collecting  praasuca 

30  I  caadlnga  fcoa  1-3  ZOC-IA  32  poet  modulaa  using  tha  CAL2000 

40  t  to  provide  calibration  data,  raduca  raw  prassura  data  and 

30  I  store  data  to  tha  hard  drive. 

60  I  Bardwaxa:  BPOSAAA  Multl-proeaasori 

70  !  -300  kBt  A/D  Carda  (RP697S9A) 

80  !  -Blgh  Spaad  Maoory  Carda  (BP69791A) 

90  I  -IlME/Paear  Card  CBP69736A> 

100  I  -Counter  Card  (BP69773A) 

110  I  CAL2000  Calibration  Module 

120  !  20C-14  32  port  Electronic  Praaaura  Scanning  Modules 

130  !  Rotas;  1.  This  progrsa  utlllsaa  up  to  thraa  (3)  Zoc  Modules  storing  data 

140  !  ot  oa<.h  Zoo  Into  a  aaparata  buflar  Manory  Systaa  (BP69791A) . 

130  I  2.  COM  /Raawa  Una  and  BOAT  Ella  ZOC_CONFI8_03  oust  aiateh  for  this 

160  !  progrsB  to  oparata. 

170  ! 

180  I  Buffar  Maonry:  83336  16-blt  data  words  In  HP69791A  par  systsm 

190  !  Tlaar;  Mazloua  32676  counts  for  ono  BP6977SA 

200  I  Max  spaad  of  BP  systaa  Is  Psrlod~0 . 000002  sac.  or  300  kBz. 

210  I 

220  COM  /lasseoa/  INTEGER  X< 1:1106) 

230  COM  /Iaaa_haap/  Iass_haap(1000) 

240  COM  /Nsaaa/  Buffar .Adel, Tlaar 

230  Conf  Igur  a  ( ••Manu_of  f  ” ,  ”  2OC_COHriO_03  “  ) 

260  IConflguraCAak  m-’.-ZOC  CONFIG  03") 

270  I  “ 

280  Input:  I - INPUT  VARIABLES - 

290  PUNT  "Progzaa:  SCAN_ZOC_03'* 

300  niRT  ”  -  Soana  1-3  Zoa-14  Modulaa  (32  praaaura  aanalng  ports  saeh)." 

310  PUNT  *  Salaatad  mabar  of  Zoea  datanUnas  tha  slsa  of  atorad  data  fllaa." 

320  nURT  “  ~  CAL2000  Calibration  Module  uaad  for  tha  rafaranea  praaaura  standard . " 

330  PUNT  *  *  Raw  praaaura  data  raduead  using  calibration  data  troai  CALZOOO” 

340  PUNT  "  and  data  freai  Zoea  In  tha  calibration  noda." 

330  PUNT  *  -  Storsa  raduead  data  on  tha  hard  drlva  (:, 700,0, 1) . " 

360  PUNT  ”  -  Prograa  daslgnad  to  oparata  thraa  (3)  Maswry-A/D  Cards  sloultanaously . 

370  PRINT 

380  PRINT  "Input  variables;  Sean  fraquaney  (1-100,000  Hz)" 

390  PUNT  "  Saaiplas  par  Port  (1-1021)" 

400  PUNT  "  Runbar  of  Zoea  to  ba  used" 

410  PUNT  "  Callbratlon/Raducod  data  fils  nans  ID" 

420  I 

430  I  COM  assigns  calibration  data  array  for  3x32  Zoc  ports  (96  total) 

440  COM  /Zoc_dat/  REAL  Zoc_eal(90, 10)  BUFFER 
430  COM  /Stats/  REAL  Parlod , Sanqpla  nusbar 
460  PUNT 

470  INPUT  "Enter  data  rata  (1-lOOkBz) ; ".Bz 

480  INPUT  "Rwbar  of  sanplas  pat  port  (1-1021);  ~,Sainplt_nuRibar 
490  INPUT  "Nusbar  of  Zoe's  eonnsetad  to  Multl-progranar" ,Zoe_nunbsr 
300  Psrlod-1/Bz 

310  Halt_forvl.3  !  Walt  tlsM  for  CAL2000  stabilization 

320  PRINT 

330  PRINT  "Data  acquisition  rats; " ;TAB(S0 ) ;Bz; "  Bz" 

340  PRINT  "Rvasbar  of  sanplas  par  port: "  ;TAB(S0)  ;SaiRpls_niaabar 

330  PRINT  "Nusbar  of  Zoes  to  ba  scannad; " ;TAB(30) ; Zoc_numbac 

380  PRINT  "Total  nusbar  of  porta  to  ba  scannad; "  .•TAB(  50 );  Zoc_nuinbar*32 

370  PRINT  "Total  calibration  data  acquisition  time: " ; IAB(50 ) ; Parlod*5»32+(9»Walt_for ) ; '  sac, 
380  PUNT  "Total  raw  data  acquisition  tlaia:";TAB(30).Parlod»Sanpla_nuiibar»32:  "  sac.  " 

390  I 

600  !  Calibration  data  array  7:nr_eal f 96 . 10 ) 

810  !  Fomat: 

620  I  For  ports  !•!  to  96 

630  !  Row  0,  eolunai  0:  Period 

640  !  Row  0,  coluim  1:  Sample  number 

630  !  Row  0,  column  2:  Number  of  Zocs  being  used 
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860  !  Row  0; _ NHNMHLZOPLPMPH  (prassur*  Hg.) 

870  !  Row  1;  AO  A1  A2  A3  HR  m  NL  ZO  PL  PM  PB  (LS  cosf, press  volts) 

680  I  LS  eoaf  are  Least  Squares  curve  tit  coat  for  third  order  polynomial. 

690  ! 

700  Zoe_eal(a,0)-Partod 
710  Zoe_cal(0,  l)-Saapla_nuoibar 
720  Zoe  eal(0,2)-Zoe  number 
730  I  ~ 

7*0  PRIRT 

7S0  PRINT  "Znsura  CAL2000  la  on-line,  calibration  pressure  source  at  90  pal," 

760  PRINT  "and  calibrator  prsssure  cut-off  valve  Is  open  (on  back  of  CAL2000)" 

770  OISP  "Prsss  F2  to  start  data  aqulsltlon" 

780  PAUSE 
790  ! 

800  Initlal_cal:  ! -  CALIBRATION  SET-OP  - 

810  ! 

820  CLEAR  SCREEN 

830  PRIRT  "Collecting  calibration  data." 

840  REAL  Call(1120),Cal2(1120),Cal3(1120)l  Calibration  data  array 


830 

REAL  Cal (1120) 

1  SUB 

prog  call  data  array 

860 

Countw32*3 

(  Set 

count  to  collect  calibration  data 

870 

CX)NTROL  9,3;3 

I  Set 

DTR  A  RTS  to  active  for  CAL2000 

880 

DIM  CoaiBand_modsS(l:7)(21 

890 

Comaund  ■odsS(l)w"HB" 

900 

CooBand^iaod  aS  ( 2  )  •  "  HM" 

910 

Coonand jaodaS ( 3 ) •" NL" 

920 

CoBnwnd_iaedaS  (  4  )  •"  ZO" 

930 

Coanand jBOdaS  ( 3  )w"PL" 

940 

CoamandjaodaS(6)w"PM" 

. 

930  CoaBand  aodaS(7)-"PH" 

960  OUTPUT  9;"IC";CaRS(13);EHD  t  Initialises  CAL2000 

970  WAIT  Halt  for  I  Allows  CAL2000  prsaaure  to  stab! 11 as 

980  t 

990  Collaet  cal  dat;  t -  COLLECT  RAM  CALIBRATION  DATA  . . 

1000  I 

1010  I  Collect  caw  calibration  data  for  each  CAL2000  setting 
1020  FOR  Indaxwl  TO  7 

1030  CALL  Cal200a(Coiiinand_a»deS(Indax)  ,Indsx,Halt_for) 

1040  CALL  Sean_soca(Count, Period) 

1030  FOR  Zoe_caso~l  TO  Zoo_nuaber 
1080  SELECT  Zoe_esse 

1070  CASE  1 

1060  CALL  Zoe  dat  caKBuffer.CalK*), Index) 

1090  CASE  2  “  ~ 

1100  CALL  Zoo  dat  cal(Buffer2,Cal2(*), Index) 

1110  CASE  3  “  “ 

1120  CALL  Zoe  dat  eal(Buffar3,Cal3(*), Index) 

1130  END  select" 

1140  NEXT  Zoe  case 
1130  NEXT  Index" 

1160  I 

1170  !  Adjust  Calibration  pressure  sign  to  account  for  CAL2000/Zoc  method 

1180  I  of  setting  negative  calibration  pressures. 

1190  Zoc_cal<0,4)“-Zoc_cal(0,*)  !  NR  adjustment 

1200  Zoc_eel(0,3)"-Zoc_cal(0,3)  !  HM  adjustment 

1210  Zoe  eal(0,S)--Zae  cal(0,6)  I  NL  adjustment 

1220  I 

1230  CLEAR  SCREEN 

1240  PRINT  "Calibration  data  collection  complete.” 

1230  PRINT 

1260  PRINT  "«*•  Secure  Calibrator  pressure  valve  to  conserve  Nitrogen  *"*" 

1270  PRINT 

1280  PRINT  "CAL2000  Calibration  modes  and  pressures  (In  Hg):" 

1290  PRINT  TAB(5);"NH";TAB(13);Zoc_eal(0.4) 

1300  PRINT  TAB(5):"NM";TAB(15),Zoc~cal(0,5) 
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PRIirt  TAB(3):"m.":TAB(15):Zoc  e«l(0.6) 

PRIKT  TAB(3):”ZO";TAB(13);Zoo  eal(0.7) 

PRIHT  TAB(3):"PL";TAB(13):Zoc_cal(0,8) 

PRIHT  TAB(3):”PM";TAB(13):Zoc~cal(0.9) 

PRIMT  TAB(3);"PH'':TAfl(13):Zoc~eal(0,10) 

I 

Collact  raw_dat:  ! -  COLLECT  RAW  PRESSURE  DATA  - 

PRINT  ~ 

PRINT  "Collactins  raw  praasura  data."  !  Sat  paramatars  to  collact  caw  data 
OUTPUT  9;"IC";CBRS(13);END  !  Rainltlallza  CAL200Q 

WAIT  Wait_foc 

Count'^aaipla_numbac*32  I  Sat  Count  aa  function  of  aaaipla  numbac 

I  and  nuobar  of  port  raadlnga  (32)  on 
t  Zoe  for  caw  data  eollaetlon. 

CALL  Sean  aoea(Count,Paclod)  t  Collaet  caw  data  into  Maanry  Syatam 

PRINT 

PRINT  "Raw  data  eollaetlon  eoaiplata." 

I 

Roduea_eal_dat:  • - RED(KE  CALIBRATION  DATA - - - 

I  Routlna  to  caduea  Cal  (*)  Into  Zoe_eal(I.J) 

I 

PRINT 

PRINT  "Raduelng  eallbratlon  data." 

FOR  Zoe_eaaaal  TO  Zoe_maBboc 
SELECT  Zoe  eaaa 
CASE  1 

CALL  Zoe_dat_cad(Call(*),l) 

CASE  2  ~  ~ 

CALL  Zoe  dat  radCCalZC*) ,2) 

CASE  3  ~  “ 

CALL  Zoe  dat  rad(Cal3(*),3) 

END  SELECT* 

NEXT  Zo4_eaaa 
I 

Oata.tsanafac:  I - TRANSFER  DATA  FM  MEHSRT  SYSTEM  TO  SARD  DISC - 

I  Routlna  tcanafaca  data  fees  Maaecy  Syataai  to  hard  drive  via  buffer  blocks 
! 

CLEAR  SCREEN 

I  Transfar  eallbratlon  data  and  eoaffleianta  to  hard  drive 
ON  ERROR  G03UB  Purga.flla 

INPUT  "Enter  Calibration  and  Reduced  Data  file  naoa  ID  (11  char  max) ; " ,Flla_ld$ 
Bard  dzlvaS~" : , 700 ,0,1" 

REAL~Rd,Nr 

I 

t - Transfer  eallbratlon  data  to  hard  drive 

PRINT  "Transferring  eallbcatlon  data  to  the  bard  delve." 

DO)  Data_dlael8[23]  !  Define  string  for  data  file  name 

Data_fllalS~"ZC_”&Fils_ldS  I  Zoe  eallbcatlon  file  name 

Flla_naBwS*4>ata_fllal3  I  Used  for  file  purging  If  rsqulrad 

Data_dlaelS~Data_fllslS&Bard_drlvaS 

CREATE  BOAT  Data~dlselS, 33 , 8*11  I  Crsats  BDAT  fils  of  11*8  byts 

ASSIGN  8Data_pathl  TO  Data  dlsclS  !  Assign  path  to  hard  drive 

ASSIGN  «Buffsr_pathl  TO  BUFFER  Zoe_cal(*)  lAsslgn  buffer  path 
CONTROL  •Buffsr_pathl,4;8*ll*(Zoe_nwibac*32>l)  !Sst  data  file  length 
TRANSFER  8Buffar_pathl  TO  8Data_pathl  fStora  cal  data  on  hard  drive 
STATUS  80ata_pathl,3;Nr  !  Number  of  cscords  in  cal  fils 

ASSIGN  8Buffar_pathl  TO  •  I  Close  path 

ASSIGN  80ata_pathl  TO  *  I  Close  path 

I 

I - Reducing  raw  data  and  transferring  data  to  hard  drive 

PRINT 

PRINT  "Reducing  raw  praasura  data  and  transf arcing  data  to  the  hard  drive. " 

DIM  Data_dlsc2S[231  !  Define  string  for  data  fils  name 

Data_flla2S“"ZR_"&Flle_ld3  !  Reduced  data  til#  name 

Flla_namaS-Data_flle23  !  Used  for  file  purging  If  required 
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Data  dlsc2S~Data_flla2S&Hatd_drlvaS 
CREATE  BOAT  Data“dl8c2S. 10.8*33  ! 

! 

! 

! 

I 

ASSIGH  8Data_path2  TO  Data_dl3c28 
I 


Ctaata  BOAT  file  of  33*6  byta  records 
and  Initial  10  records 
Each  racord  contains  ona  scan  of  tha 
32  port  Zoe  in  REAL  prassura  values 
eorrsctad  by  CA12000  values 
f  Assign  path  to  hard  drive 


FOR  Zoc_cass~l  TO  Zoe_niaabat 
SELECT  Zoo  eaaa 
CASE  1 

CALL  Raw  tad  datCBuffar, I,fl0ata_path2) 
CASE  2  ~  ~ 

CALL  Raw  rad  dat(BuZfar2,2,e0ata_patb2) 
CASE  3  ~  ~ 

CALL  Raw  rad  dat(Buffar3,3,6Data_path2) 
END  select” 


Collect  raw  data,  rsducs  data  and 
and  stors  rsduee  data  on  hard  drive 


HEXT  Zoo_eaae 

! 

STATUS  (0ata_jpath2 . 3 ; Nd  !  Reduced  data  file  length 

ASSIGR  8Data_path2  TO  *  I  Close  buffer  path 

I 

CLEAR  SCREEN 

PRINT  "Calibration  data  file:  ";Data_filsl3;''  containing"; Nr;''  records." 

PRINT  "Raduead  data  file;  ";0ata_flla2S;"  containing" ;Hd;''  records." 

PRINT 

PRINT  "Files  ";Data_filalS;"  and  ";0ata_file2S;"  are  located  on  hard  drive  " ;Hard_drlvs3 
PRINT  "Data  reading  prograan  available  froa  BP6944A  smu." 

! 

Fialab: t 

DISP  "Ptaaa  F2  to  eontiana." 

PAUSE 

LOAD  *SP8944AjaNU”,10 
Fargo  fila;  I 
IP  EmR-34  THEN 

rVKaS  Filo  nMoSSBard  drlveS 
END  IF  “ 

RETURN 


I 

END 

End!  I  11..-  I ii—  III  "■  ■—  I  ■■  . . - 

I  Routine  to  operate  CAL200Q 
SUB  Cal2000<CoaBMndS,I.Wait_poriod) 

CCH  /Zoe_dat/  REAL  Zoe_eal(96,10)  BUFFER 

DIM  PraasuraS(3]  I  Required  to  read  data  atraan 

OUTPUT  9;ConandS;CBRS(13);ERD  I  Sets  calibration  laodo 
WAIT  Hait_porlod  I  Allow  CAL2000  to  stabllizs 

OUTPUT  9;"RP";CBR3(13);END  I  Reads  CAL2000  calibration  prssaure 

ENTER  9  USING  "#.SD.3DESZZ.K";Zac_csl(0,I43).PrassursS 
SUBEND 


, - - — 

!  Routine  to  operate  HP6944A  to  collect  pressure  data  and  store  in  Memory 
iNoto:  -Zoe  address  driven  by  Counter  Card  binary  output  at  edge  connection 
!  through  a  7404  open  collector  DTL/TTL  located  in  an  auxiliary  box. 


SUB  Scan_zocs(Count. Period) 

COM  /Hanes/  Buffer. Add, Timer 

Malt_tlrae“lMT(Count*Perlod)+10 

Init(Timsc) 

Se  t_t Imsout (Timer, Walt_time) 
Sat_count (Timer , Count ) 
Sst_perlod(Tiraer, Period) 
Inlt(Buffer ) 

!IHIT(BUFFER2) 

IIHIT(BUFFER3) 


I  Set  Timer  wait  time  to  *1C  secs. 

I  Initiellze  Timer  system 
!  Set  Walt_for  period  of  xx  sacs, 
t  Sat  Count  number  into  Timer 
(  Sat  Timer  pulse  length  in  sacs. 

I  Initialize  Buffer  for  data  storage 
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2610  Stazt(Tlffl«r)  I  Start  data  sample  collection 

2620  Watt  for(Tlmaz)  I  Data  samples  atorad  in  Memory  System 

2630  SUBEHD~ 

2640  I - - - - - - - . . 

2630  I  Routine  to  read  raw  calibration  data  from  Mamory  Systam 
2660  SUB  2oe_dat_eal(Buff.Cal(*),I) 

?670  Ioiiut~rbloek  <  Buf  £ .  Cal  ( * ) .  160 .  ( I  - 1 )  *160+1 ) 

2680  SUBEND  ~ 

2690  I - - — 

2700  t  Routine  to  reduce  Cal  (*)  Into  Zoe  eal(I.J) 

2710  SUB  Eoe_dat_ted(Cal(*)72oe) 

2720  COM  /Zoe_dat/  REAL  Zoe_eal(96, 10)  BUFFER 

2730  REAL  A(3,3),B(3},C(3),Siai  x(6),A  lnv(3,3)!  Least  Square  reduction  arrays 
2740  REAL  Calz(2S6.3) 

2730  FOR  TO  10  !  Cal  runa;  NH.HM.HL.ZO.PL.PM.PH 

2760  FOR  !•!  TO  32  I  Zoc  ports  par  calibration  run 

2770  Ilw<Zoa-l)*32+I 

2780  FOR  K~0  TO  4  I  Humber  of  aaaiplas  par  run 

2790  Zoe_eal(Il, J)-Zoo  caldl, J)+Cal(I+K*32+(J-4)*l60)  • 

2800  Calz<2+( J-4 )*32 , K+1 )-Cal( I+K*d2+< J-4 )*180 ) 

2810  NEXT  X 

2820  Zoe  caldl, J)>Zoe  caldl, J)/3  I  Avarase  of  3  samplas  per  port  I 

2830  NEXT  I 

2840  NEXT  3 

2830  ! 

2880  SOTO  Laaat__squarea 
2870  I  Print  raw  calibration  data 
2880  PRINTER  IS  711 

2800  PRINT  *Xaw  calibration  data  for  Zoe#"; Zoc 
2900  PRINT 

2910  PozMt:IMAfiE  30,2X,3D.3D,2X,30.3D,2X,30.3D,2X.3D.3D,2X,30.3D 
2920  FOR  K-1  TO  7 

•  2930  PRINT  “RP-“jE 

2940  FOR  J-1  TO  32 

2930  I-J+<{E-1)*32) 

2960  PRINT  USING  Fermat;  J.Calxd,  1)  ,Calzd.2)  ,Calxd,3)  ,Caljcd.4)  .Calxd .  3) 

2970  NEXT  J 

2980  NEXT  K 

2990  PRINTER  IS  CRT 

3000  t 

3010  Lsaat_aquaras; I 

3020  I  Calibration  data  reduction  using  Least  Squares  Polynominal  fitting. 


3030  1 
3040 

FOR  K-1  TO  32 

1  Loop  for  each  port 

3030 

Kl-<Zoo-l)*32+K 

3060  1 
3070 

MAT  C-  (0) 

3060 

MAT  S«ai_z-  (0) 

3090  1 
3100 

FOR  J-1  TO  8 

1  Routine  to  reduce  individual  port  cal 

3110 

FOR  1-4  TO  10  1 

1  data  Into  elamonts  to  a  power  z*J 

3120 

Sum  z(J)-San  z(J)+Zoe 

.eal(Kl,I)"J 

3130 

NEXT  1 

3140 

NEXT  J 

3130  I 
3180 

FOR  I-O  TO  3  ! 

!  Derive  A  array 

3170 

FOR  J-0  TO  3 

3180 

Ad,J)-Sum_xd+J) 

3190 

NEXT  J 

3200 

NEXT  I 

3210 

A<0,0)-7 

3220  ! 
3230 

FOR  J-0  TO  3  ! 

'  Derive  C  array 

3240 

FOR  1-4  TO  10 

3250 

C(J)-C(J)+Zoc_cal(Kl,I)‘J*Zoc_c8l(0.I) 

Figure  B3  (cont)  Development  Program;  SCAN_ZOC_03 


3260  NEXT  I 

3270  NEXT  3 

3280  I 

3290  MAT  A_lnv-  INV(A) 

3300  MAT  B“  A_lnv*C  1  B  array  ia  matrix  of  Laaic.  Squara 

3310  !  coafficlanta  a0,al,a2,&  a3  for  polynomial 

3320  !  aquation  fitting  calibration  data  for  a 

3330  !  apaclflad  port 

33A0  ! 

33S0  Zoc_cal(Kl,0)-B(0)  I  Collact  Laaat  Squara  coafficlanta 

3380  Zoe“eBl(Kl,l)-B(l) 

3370  Zoc_cal(Kl,2)-B(2) 

3380  Zoe_eal(Kl,3)-B(3) 

3390  ! 

3400  NEXT  K 

3410  SUBENO 

3420  ! - 

3430  SUB  Raw_rad_dat(Buff,Zoc,SData_path2) 

3440  t  Routlna  to  raduca  raw  data  ualng  polynomial ; 

3430  CCM  /Zoo  dat/  REAL  Zoc  eal(96,10)  BUFEER 

3460  REAL  Rad~data<32)  BUFFER 

3470  REAL  Raw_data(32) 

3480  COM  /Stata/  REAL  Parlod , Saaipla_niaBbar 

3490  FOR  Block~l  TO  Saiiipla_nunibar  !  Loop  routlna  to  tranafar  data 

3300  ASSIGN  SBuffarjpathi  TO  BUFFER  Rad_data(*) ;FORMAT  OFF 

3310  tnput_rblock(Buff ,Raw_data(*) ,32, 1)  !  Load  data  aamplaa 

3320  SaBipla_tiaM~Bloek*Parlod 

3330  I 

3340  !  Rad_daba  <•  aO  >  al*x  >  a2*x*2  a3*x*3 

3330  ! 

3360  !  wfaaxa  a0,al,a2,  6  a3  aza  Laaab  Squara  coafficlanta,  and  z  la 
3370  I  tha  Individual  port  caw  data  valua. 

3380  I 

3390  FOR  K>1  TO  32 

3600  Kl-(2oe-l)*32+K 

3810  Rad  data(!C)-Zoc_eal(Kl,0)+Zoc_eal(Kl, l)*Raw_data(K)+Zoc_eal(Kl,2)*RBH_data(K)*2+Zoc_cal(Kl,3)»Raw_d* 

3820  NEXT  K 

3630  t 

3640  Rad_data(0)~San)pla_tlnia  !  Stora  raduca  data  sampla  time. 

3830  ! 

3860  CONTROL  6Buffar_path2. 4 ; (32+l)«8  I  Cloaa  buffer  whan  full 

3670  TRANSFER  6Buffar_path2  TO  6Data_patb2  t  Tranafar  data  to  hard  drive 

3680  ASSIGN  8Buffac_path2  TO  • 

3690  NEXT  Block 
3700  SUBEND 

3710  I - - - 
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10  !  Progrun:  SCAN_ZCC_04 

20  I  D«>eriptlon;  Application  program  to  oparata  HF6944A  collactlng  pressure 

30  !  readings  from  1-3  ZOC-14  32  port  modules  using  the  CAL2000 

40  >  to  provide  calibration  data,  reduce  raw  pressure  data  and 

SO  !  store  data  to  the  hard  delve. 

60  1  Hardware:  (1)  BF6944A  Multl-procaaaors 

70  !  -  (2)  300  kHs  A/D  Cards  (HP69739A) 

80  !  -  (2)  High  Speed  Memory  Cards  (BF69791A) 

90  !  -  (1)  Tlmer/Pacar  Card  (BF6g738A> 

100  )  -  (1)  Counter  Card  (HF69773A) 

110  t  (1)  BlScan  CAL2000  Calibration  Module 

120  I  (1)  ZOC-14  32  port  Electronic  Pressure  Scanning  Modules 

130  I  Notes:  1.  This  prograai  utlllaaa  up  to  three  (3)  Zoc  Modules  storing  data 

140  !  of  each  Zoc  Into  a  separata  buffer  Maiaory  Systam  (BP69791A). 

ISO  I  2.  CCM  /NaaMS/  line  and  BOAT  file  ZOC_CONFI6_04  must  match  for 

160  !  this  program  to  oparata. 

170  I  3.  BlScan  raqulrss  a  short  period  to  stabilize  before  reading 

180  I  tha  prassure  valvea.  The  Halt_for  statement  (line  340)  sets  this 

190  I  wait  period  In  saconds.  Adjustment  of  tha  variable  my  be  required 

200  I  i.a  additional  Zoes  are  Integrated  into  tha  Data  Acquisitlor  Systam. 

210  I  4.  BlScan  currently  configured  for  ona  (1)  calibrator.  This 

220  !  program  is  written  to  operate  ona  (1)  or  two  (2)  calibrators. 

230  t 

240  !  Buffer  Mamory:  6SS36  16-bit  data  words  in  HF69791A  per  system 

2S0  I  Timer:  Maxlmiaa  32878  counts  for  ona  HP6977SA 

260  I  Max  spaed  of  HP  system  la  Par lod^O. 000002  sac.  or  SOO  kHz. 

270  I 

280  CCM  /Xssscom/  INTEGER  X(l:1106) 

290  COM  /..  aas_baap/  Isaa_haap(1000} 

300  CCM  /Names/  Buffarl, Adel, Buffer2.Ade2, Timer 
310  tConflsure(*'Manu  off*, "ZOC  CONFIG  04") 

320  Configure  ("Ask  m’.'ZOC  C^IG  04') 

330  t 

340  Halt  for^l.S  I  Halt  tiam  for  BlScan  stabilization 

330  I 

360  Input:  I - INPUT  VARIABLES . . . . 

370  PRINT  "Program:  SCAH_ZOC_04" 

380  PRINT  "  -  Seans  1-3  Zoe-14  Modules  (32  pressure  sensing  ports  each)." 

390  PRINT  "  -  Uses  Zero  Operate  Calibrate  (ZOC)  principal:" 

400  PRINT  "  *  Collects  raw  pressure  data  (Zero  Operate)" 

410  PRINT  "  -  Collects  calibration  data  (Calibrate)" 

420  PRINT  "  -  Reduces  raw  data  and  stores  data  on  hard  drive  :, 700, 0,1" 

430  PRINT  "  -  BlScan  Calibration  Module  used  for  the  rofaronca  preaaure  standard." 

440  PRINT  "  -  Raw  pressure  data  reduced  using  calibration  data  from  BlScan" 

4S0  PRINT  "  and  Zoes  In  the  calibration  mode." 

460  PRINT  "  -  Program  designed  to  operete  up  to  three  (3)  Mamory-A/D  Cards" 

470  PRINT  "  simultaneously.  COM  /Naams/  line  oust  match  Milti-programner" 

480  PRINT  "  (HFe944A)  configuration.  Z(X_C0BriG_04  file  must  be  updated" 

490  PRINT  "  to  the  revised  COM  /Names/  line  when  altered." 

300  PRINT 

310  PRINT  "Input  variables;  Scan  frequency  (1-100,000  Hr)" 

320  PRINT  "  Samples  per  Port  (1-1021)" 

330  PRINT  "  Number  of  Zoes  and  their  capacity" 

340  PRINT  "  Callbratlon/Raduced  data  file  name  ID" 

330  ! 

360  !  COM  assigns  calibration  data  array  for  32  Zoc  ports  and  standard  values. 

370  COM  /Zoc_dat/  REAL  Zoo_eall(33, 10)  BUFFER, Zoc_cal2( 33, 10)  BUFFER, Zoc_cal3 ( 33 , 10 )  BUFFER 
380  COM  /Stats/  REAL  Period, Saaiple^number, Hal t_for, INTEGER  Cal_tnod_ld(3) 

390  MAT  Zoe_caH-  (0) 

800  MAT  Zoc~cal2-  (0) 

810  MAT  Zoe“cal3-  (0) 

820  PRINT 

830  INPUT  "Enter  data  rate  ( 1-lOOkHz ) : " , Hz 

840  INPUT  "Number  of  samplea  per  port  (1-1021):  " . Samplenumber 
630  INPUT  "Number  of  Zoc ’ s  connected  to  Muitl-programer" , Zoenumber 

Figure  B4  Development  Program:  SCAN_ZOC_04 
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860  Cal._niod_ld(0)”Zoc_nunib*r 
670  FOR  Zoc_cas*>l  TO  Zoc_nuiiibaE 
680  SELECT  Zoe_caaa 
690  CASE  1 

700  INPUT  "Entar  Calibration  Modula  nunbar  aat  for  Zoc  #1  (Enter  1  or  2) : " ,CaL_mod_id( 1) 

710  CASE  2 

720  INPUT  "Enter  Calibration  Modulo  number  aat  for  Zoc  #2  (Enter  1  or  2) : " ,Cal_mod_ld(2) 

730  CASE  3 

710  INPUT  "Entar  Calibration  Modula  ntBl>at  sot  for  Zoc  #3  (Entar  1  or  2) ; " ,Cal_mod_ld(3) 

730  END  SELECT 

760  NEXT  Zoe_eaaa 

770  INPUT  "Enter  Calibration  and  Raducad  Data  file  nans  ID  (10  char  max) ; " ,Flls_ldS 
780  Psrlod-1/Hs 
790  ntINT 

800  PRINT  "Data  acquisition  rata;";TAB(30);Bz;"  Hz" 

810  PRINT  "Numbar  of  aamplaa  par  port:  ";TAB(S0)  :Saii)pla_nuinbar 

820  PRINT  "Nundisz  of  Zoes  to  be  scanned:  ";TAB (30)  ;Zoe_nuaibar 

830  PRINT  "Total  number  of  porta  to  be  aeannsd:";TAB(S0);Zoc_numbar*32 

810  PRINT  "Total  raw  data  acquisition  tlma: " ;TAB(30) ;Parlod*Safflpls_nunibar*32; "  sac." 

830  PRINT  "Total  calibration  data  acquisition  time: " j TAB(30) ; Parlod*5*32+(7«Wait_for ) ; "  sac." 
860  I 

870  Zoc_eall(0,0)aParlod 

880  Zoe_eall(0,l)-Saoipla_numbar 

890  Zoe~eall(0,2)-1 

900  Zoe_aall(0,3)aCaljBod_ld(l) 

910  Zoo_eal2(0,0)-Parlod 

920  Zoc_eal2  (0,1  }>Saaipla_numbar 

930  Zao3eal2(0,2)w2 

910  Zoc_ea.l2(0,3)<al_aBd_ld(2) 

930  Zoe2e«13(0,0)-Psrrod  ~ 

960  Zoo  eal3(0, l)wSampls  ntObar 

970  Zoo"csl3<0,2)-3 

960  Zoc  eal3(0,3Xal  snd  ld(3) 

990  !  ~ 

1000  PRINT 

1010  PRINT  "Ensure  BlScan  Is  on-line,  calibration  pressure  source  at  90  psl," 

1020  PRINT  "and  calibrator  pressure  cut-off  valve  Is  open  (on  back  of  HlScan)" 

1030  I 
1010  ! 

1030  CONTROL  9,3:3  !  Sat  OTR  &  RTS  to  active  for  HlScan 

1060  OUTPUT  0;VALS<l):"IC":CHRS(13);EHDt  Initialize  Calibrator  module  #1 
1070  OUTPUT  9;VALS(2);"IC";CaRS(13);ENDI  Initialize  Calibrator  module  #2 
1080  WAIT  Walt_foc  I  Allow  BiScan  to  set  Zocs 

1090  I 

1100  DISP  "Press  F2  to  start  data  aqulaltlon" 

1110  PAUSE 
1120  I 

1130  Collect  Eaw_dat:  I—  COLLECT  RAW  PRESSURE  DATA - - - 

1110  CLEAR  SCREEN 
1130  PRINT 

1160  PRINT  "Collecting  raw  prasaura  data." 

1170  Count~Sanipla_nuiiiber*32  !  Sat  Count  as  function  of  sample  number 

1180  I  and  number  of  port  readings  (32)  on 

1190  !  Zoc  for  raw  data  collection 

1200  CALL  Scan  zocs(Count, Period)  t  Collect  raw  data  Into  Memory  System 

1210  PRINT 

1220  PRINT  "Raw  data  collection  complete." 

1230  BEEP 
1210  ! 

1230  Raw  data  zfer:! - TRANSFER  RAW  DATA  FM  MEMORY  SYSTEM  TO  HARD  DISC . 


1260 

PRINT 

1270 

! 

1280 

FOR  Zoc_caso“l  TO  Zoc_numbar 

f  Collect  raw  data. 

.  reduce 

data 

and 

1290 

SELECT  Zoc  case 

f  and  store  reduce 

data  on 

hard 

drive 

1300 

CASE  1 

Figure  B4  (cont)  Development  Program;  SCAN_ZOC_04 
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1310  CALL  Raw_dat(Buf£arl,  l,Sainple_nuiiib«r) 

1320  CASE  2 

1330  CALL  RaH_dat(Buffsr2,2,Saiiipla_nuiiibar) 

13*0  CASE  3  ~ 

1330  CALL  Raw__dat(Bu£far3,3.Safapla_nuiiibar) 

1360  EHD  select' 

1370  NEXT  Zoc  caaa 
1380  ! 

1390  Inltial_eal:! - CALIBRATION  SET-UP - - - 

1400  I  Calibration  data  array  for  aach  Zoo:  Zoc_cal_(33  10 > 

1410  I  Fomat: 

1420  I  For  porta  1~1  to  33 
1430  I  Row  0,  eoluon  0:  Parlod 

1440  t  Row  0,  eoliaai  1:  Saaqjla  niaabar 

1430  f  Row  0,  eoluan  2:  Zoo  # 

1460  I  Row  0,  coluan  3:  Calibrator  modula  ID  (1-30  pal  2-13  pal) 

1470  !  Row  0: _ NBNMNLZOPLPMPB  (praaaura  Hg.) 

1480  I  Row  1:  AO  A1  A2  A3  NH  NM  NL  ZO  PL  PM  PH  (LS  coaf.praaa  volta) 

1490  !  LS  coat  axa  Laaat  Squaraa  eurva  fit  coaf  for  third  ordar  polynomial. 
1300  ( 

1310  PRINT 

1320  PRINT  "Collaeting  calibration  data.” 

1330  REAL  Call(1120),Cal2(1120),Cal3(1120)!  Calibration  data  array 
1340  Count-32*3  I  Sat  count  to  collect  calibration  data 

1330  DIM  CoaBMnd_modaS(l;7)(2I 
1360  Cooaand  modaS(l)-''Ra'‘ 

1370  CoaBand~BodaS(2)-"l»r 
1380  Coataand_nodaS(  3  )-"NL" 

1390  CoMand''modaS(4)-''ZO*' 

1600  CoiMod~mada6(3)-’'PL'' 

1810  CoMand  a»daS(6}-**Rr 
1820  Co«mand~BOda8(7)-''PR'* 

1830  I 

1840  CoUaet  cal  dat:t - COLLECT  RAH  CALIBRATION  DATA  — . 

1830  I 

1680  I  Callaet  raw  calibration  data  for  aach  BlSean  aattlng 
1670  FOR  Indas-1  TO  7 

1680  CAIX  Cal2000  (Coaiiiand_Bioda8(  Index ),  Indax) 

1690  CALL  Scan_xoca(Count, Parlod) 

1700  FOR  Zoo_eaaa-1  TO  Zoc_a«aibox 
1710  SELECT  Zae_caaa 

1720  CASE  1 

1730  Input_cbloek(Buffarl,Call(*)  .160,  (Indax-D^lSO^-l) 

1740  CASE  2  ~ 

1730  Input_rbloek(Buffar2,Cal2(*},ieO.  (Indox-l)*160-tl) 

1760  CASE  3  ~ 

1770  Input_cbloek  <  Buffers . Cal3 ( * ) , 180 , ( Index- 1 ) • 160+1 ) 

1780  END  SELECT 

1790  NEXT  Zoe_ea8a 
1800  NEXT  Index' 

1810  I 
1820  PRINT 

1830  PRINT  "Calibration  data  coLlactlon  completa." 

1840  BEEP 
1830  WAIT  . 23 
1860  BEEP 

1870  OUTPUT  9:VAL3<1):"IC";CHRS<13):EHDI  Inltiallxa  Calibrator  module  #1 
1880  OUTPUT  9;VALS(2);"IC";CHRS<13);ENDI  Inltiallxa  Calibrator  modula  #2 
1890  PRINT 

1900  PRINT  ”•••  Secure  Calibrator  praaaura  valve  to  conaarva  Nitrogen 
1910  PRINT 

1920  PRINT  "BlScan  Calibration  modaa  and  prasauraa  (in  Hg);" 

1330  Fmtl:  IMAGE  /  .  3X.K.  lOX.K,  lOX.K,  lOX.K 

1940  PRINT  USING  Fmtl ; "Mode" . "Zoc  #l","Zoc  #2". "Zoc  #3" 

1930  Frat2.IMAGE  6X, K. lOX. 3D. 4D. 8X, 3D. *D, 8X, 30. *0 

Figure  B4  (cont)  Development  Program;  SCAN_ZOC_04 
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1960  FOR  I-*  TO  10 

1970  PRINT  USING  Fnit2 ; Comnand  inodeS(I-3) .  Zoc_cail(0 . 1 ) ,  Zoc_caI2<0 . 1 ) ,  Zoc_cal3 (0 , 1 ) 
1980  NECT  I 
1990  I 

2000  Raduca_cal_dat: I - REDUCE  CALIBRATION  DATA  AND  STORE  ON  HARD  DRIVE . 

2010  !  Routlna  to  reduco  Cal  (*)  Into  Zoc_caI_(I, J)  and  stora  on  hard  drive 
2020  ( 

2030  PRINT 
20A0  PRINT 

2030  PRINT  "Hard  drive  name  ->  700, 0,1" 

2060  FOR  Zoe  easa^l  TO  Zoo  nuodier 
2070  SELECT  Zoc_eaaa 

2080  CASE  1 

2090  CALL  Zoo  dat  rad(Call(*) , Zoe  ealK*)  ,Flla_idS) 

2100  CASE  2  ~  ~ 

2110  CALL  2oc_dot  red<Cal2<») , Zoe  cal2(*) ,Flle_ldS) 

2120  CASE  3  ~  “ 

2130  CALL  Zoe_dat  ted(Cal3(*) . Zoe  cal3(*) ,Flle_ldS) 

21*0  END  SELECT 

2130  NEXT  Zoo  case 
2160  I 

2170  Radues_data; ! - REDUCE  DATA  AND  STORE  OR  HARD  DRIVE - - 

2180  I  Routlna  loads  raw  and  calibration  data  tiom  hard  drive,  reduces  the  raw 
2190  I  data,  and  atoraa  the  reduced  data  to  tha  hard  drive. 

2200  I 

2210  FOR  Zoe  oaaa~l  TO  Zoe  number 
2220  SELECT  Zoe  eaaa 

2230  CASE  1 

2240  CALL  Ra«_rsd_dat(Zoe_eall(*),Flla_ld3) 

2230  CASE  2  ”  ~  ” 

2260  CALL  Raw  rad  dat(Zoe  oal2(*),Flls  IdS) 

2270  CASE  3  ■  “  “ 

2280  CALL  Raw  rod  datCZoo  eal3(*),Flla  IdS) 

2200  END  SELECT 

2300  NEXT  Zoo  eaaa 
2310  I 

2320  BEEP 
2330  WAIT  . 23 
23*0  BEEF 
2330  WAIT  .23 
2360  BEEP 
2370  ! 

2380  Finish:! 

2300  PRINT 

2400  PRINT  "Avallabls  Mamorr;  SYSTEMS ( "AVAILABLE  MEMORY") 

2*10  DISP  "Press  F2  to  continue  arid  return  to  ZOC  Menu." 

2*20  PAUSE 

2*30  LOAD  "ZOC  MENU", 10 
2**0  ! 

2*30  END 

2*80  End:!  '  ■  .  "  . . —  ■— i.-  ..  — . .  ■  . — .  — 

2*70  !  Routlna  to  operate  RP6944A  to  collect  pressure  data  and  store  In  Memory 
2*80  !Nots;  -Zoo  address  driven  by  Counter  Card  binary  output  at  edge  connection 
2*90  !  through  a  7*04  open  collector  DTL/TTL  located  in  an  auxiliary  box. 

2300  ! 

2310  SUB  Scan_zoca(Count, Period) 

2320  COM  /Names/  Buffarl, Add, BuYfar2,Ade2, Timer 

2330  Walt_tlma"IRT(Count*Perlod)+10  !  Set  Timer  wait  time  to  i-lO  secs. 

23*0  Inlt(Tlmar)  !  Initialize  Timer  system 

2330  Set_tlmeout(Tlmer .Walt_tlme)  !  Set  Walt_for  period  of  xx  secs. 

2360  Sst_count(Tlmac .Count )  !  Set  Count  number  into  Timer 

2370  Sst_psrlod(Tlmer, Period)  !  Set  Timer  pulse  length  In  secs. 

2380  Inlt(Buffarl)  !  Initialize  Buffer  for  data  storage 

2390  Init(Buffar2) 

2600  riNir (BUFFERS) 
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2610  StartCTlmar)  !  Start  data  sampla  collection 

2620  Walt_for<Timor )  !  Data  sanplas  stored  In  Memory  System 

2630  SUBEMD 

26*0  ! . . . - - - - 

2630  !  Subroutine  to  collect  taw  pressure  data  from  Mamory  System  and  store 
2660  !  onto  the  hard  drive  for  future  data  reduction. 

2670  SUB  Raw_dat(Buff.Zn.Sn) 

2680  ON  ERROR  GOSUB  Purge_flle 

2690  INTEGES  Raw_data( 1:32672)  BUFFER  !  Integer  raw  data  buffer  for  32*1021 
2700  !  data  samplas.  Integer  format  for 

2710  !  mlninum  transfer  time  to  storage. 

2720  Data_flleS-'’ZRAH’'&VALS(Zn}  !  Raw  data  file 

2730  Data_dlac$-Oata_f llaS&" : , 700 , 0 , 1" 

27*0  CREATE  BOAT  Data_dlseS . 1 . 2  I  Create  BOAT  file  of  2  byte  records. 

2730  ASSII^  •Data_path  TO  Data_dlscS  !  Assign  path  to  hard  drive 

2760  ASSIGN  aBuffar_path  TO  BUFFER  Raw_data(*): FORMAT  OFF 

2770  Input_lbloek(Buff,Raw_dsta(*),Sn*32,l)  !  Load  data  samples 

2780  CONTROL  8Buffet_path, *; 32*2*Sn  !  Close  buffer  when  full 

2790  TRANSFER  8Buffar_path  TO  (Data_path  !  Transfer  data  to  hard  drive 

2800  ASSIGN  SBufferjpath  TO  * 

2810  ASSIGN  BOatajpath  TO  * 

2820  PRINT  *Raw  pressure  data  for  Zoc  O^iZn;*  transferred  to  the  hard  drive  file  ";Data_flleS 

2830  GOTO  Fin 

28*0  Pur8a_flle:  I 

2830  IF~ERRN-S*  TBEN 

2860  PURGE  Data  diaeS 

2870  END  IP 

2880  RETURN 

2890  Pin:  I 

2900  SUBEND 

2910  ) - - 

2020  I  Subroutine  eontrola  eallbratlon  aw>da  and  reads  pressure  from  Pressure 
2930  I  Standard  Into  2oa_eal(*)  array. 

2940  SOB  Cal2000(CaaBandS,I} 

2930  COM  /Zoo.dat/  REAL  2oe_aall<*)  BUFPER.2oo_ael2(*)  BUFFER, Zoe_eal3(*)  BUFFER 
2960  COM  /Stats/  REAL  Parlod,Sai9la_nunbar,Halt_for, INTEGER  Cal_mod_ld(3) 

2970  DIM  PressuraS(31  !  Required  to  read  data  stream 

2980  OUTPUT  9; VALS(l) ;CaaaandS;CBRS(13) ;EN0  I  Sets  calibrator  #1  mode 

2990  OUTPUT  9;7ALS(2) ;CaanandS:CBRS( 13 ) ;END  !  Secs  eallbrstor  #2  mode 

3000  WAIT  Hait_for  t  Allow  BlScsn  to  stabilise 

3010  FOR  Rwl  TO  Cal_mod__ld(0)  I  Read  BlScan  cal  press 

3020  SELECT  K 

3030  CASE  1 

30*0  OUTPUT  9;VALS(Cal_mod  id( 1) ) ; "RP* ;CHRS(13) ;END 

3030  ENTER  9  USING  "#,SD.SDESZZ.K'';Zoc  eall(0,IT3) .Pressures 

3080  CASE  2 

3070  OUTPUT  9:VALS(Cal_mod_ld<2));"RP";CHRS{13);EHD 

3080  ENTER  9  USING  "P.SD. SDESZZ.K* ; Zoe  cal2(0. 1+3) , Pressures 

3090  CASE  3 

3100  OUTPUT  9:VALS<Cal  mod  ld(3) ) : "RP" :CHRS(13) :END 

3110  ENTER  9  USING  "#,SD. SDESZZ.K" ; Zoc  cal3(0. 1+3) .Pressures 

3120  END  SELECT 

3130  NEXT  K 

31*0  IF  I<w3  TBEN  f  Account  for  positive  pressures  used 

3130  Zoc_csll(0.I+3)— Zoc_call(0,I+3)  !  by  RlScsn  in  the  HH.NM.  &  NL  mode 

3160  Zoc_eal2<  0. 1+3  )—Zoc~cal2<  0,1+3) 

3170  Zoc“cal3(0,l+3)— Zoc~cal3<0,I+3) 

3180  END  IP 
3190  SUBEND 

3200  ! - - - - 

3210  !  Subroutine  reduces  calibration  data  collected  from  Mao»ry  System  end 
3220  I  RlScan  calibration  pressure  data  Into  a  Third-order  polynomial  curve 
3230  !  fit  using  the  Least  Squares  routine.  The  complete  calibration  array 
32*0  !  Zoc_cal^  Is  than  stored  onto  the  hard  drive. 

3230  SUB  Zoc_dat_red(REAL  Cal(* ) , Zoc_cal( •)  BUFFER. FldS) 

Figure  B4  (cont)  Development  Program:  SCAN_ZOC_04 
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3280 

REAL  A(3,3) ,B(3) ,C(3) ,SuD  z(6),A  inv(3,3)t  Least  Square  reduction  arrays 

3270 

I 

3280 

1  Converting  Cal(*)  to  Zoe_cal( 

*) 

3290 

FOR  J-4  TO  10 

!  Cal  runs;  NH,NM,NL, ZO, PL, FH, PH 

3300 

FOR  I-l  TO  32 

!  Zoe  ports  par  calibration  run 

3310 

FOR  K>0  TO  4 

!  Number  of  samples  per  run 

3320 

Zoc  eal(I,J>~Zoc  eald 

,  J ) +Cal < I+K*32+ ( J-4  >*160) 

3330 

NEXT  ic 

3340 

Zoe  eal(I,J)-Zoe  eal(I,J)/3  I  Average  of  3  sanplaa  per  port  I 

3330 

NEXT  I 

3360 

NEXT  J 

3370 

1 

3380 

t  Calibration  data  reduction  ualng  Least  Squares  Polyncailnal  fitting. 

3390 

FOB  K-1  TO  32  ! 

Loop  for  each  port 

3400 

1 

3410 

MAT  C-  (0) 

3420 

MAT  S<aa_z-  (0) 

3430 

! 

3440 

FOR  J-1  TO  6  ! 

Routine  to  reduce  Individual  port  cal 

3430 

FOR  1-4  TO  10  I 

data  Into  elements  to  a  power  z'J 

3460 

Sum  z<J)-Sum  zlJl-fZoe 

cal(K,I)*J 

3470 

NEXT  i  “  “ 

3480 

NEXT  J 

3490 

1 

3300 

FOR  I-O  TO  3  1 

Derive  A  array 

3310 

FOR  J-0  TO  3 

3320 

A(I,J)-3ia  zd-tj) 

3330 

NEXT  J 

3340 

NEXT  I 

3330 

A(0,0)-7 

3360 

t 

3370 

rat  J-0  TO  3  1 

Derive  C  array 

3380 

FOR  1-4  TO  10 

3390 

CCJXCJld'Zee  eal(E,I) 

*J*Zoe_cal(0,I) 

3600 

NEXT  I 

3610 

NEXT  J 

3620 

1 

3630 

MAT  A_lnv-  IHV(A) 

3640 

MAT  B^  A_lnv*C  1 

B  array  la  aiatrlz  of  Least  Square 

3630 

f 

eoafflelente  a0,al,a2,A  a3  for  polynomial 

3660 

1 

equation  fitting  calibration  data  for  a 

3670 

1 

spaelfled  port 

3680 

I 

3690 

1  Collect  Least  Square  ceafflelsnts 

3700 

Zee_eal(K,0)-B(0) 

3710 

Zoo  eal(K,l)-B(l} 

3720 

Zoe~oal(K,2)-B(2) 

3730 

Zoe~cal(K,3)-B(3) 

3740 

!  ~ 

3730 

NEXT  JC 

3760 

! 

3770  !  Transfar  calibration  data  to  hard  drlva. 

3780  Olf  BtItOR  GOSUB  Pur8a_flla 

3790  DIM  Data  dlacS[23]  !  Daflna  string  for  data  fils  naina 

3800  0ata_fllaS-''ZC"iVAL3<Zoe_eal(0.2))S"_"iF_ldS  !  Zoc  calibration  flla  name 
3810  Data  dlscS~0ata  fllsS&'':  ,700,0,1" 

3820  CXEAn  BDAT  Data_dlaea,33,8*ll  I  Croats  BDAT  fils  of  11*8  byta 

3830  ASSIGN  iOata_path  TO  Data_dlscS  (  Assign  path  to  hard  drlva 

3840  ASSIGN  8Buffarj;iath  TO  BUFFER  Zoc_cal(*)  ;FORMAT  OFF 

3830  CONTROL  •Bu£far_path, 4 ; 8*11*33  fSot  data  fils  length 

3860  TRANSFER  SBuffsrjpath  TO  80ata_path! Store  cal  data  on  hard  drlva 

3870  ASSIGN  eBuffsr_path  TO  *  t  Close  path 

3880  ASSIGN  BDatajpath  TO  *  I  Close  path 

3890  PRINT  "Calibration  data  for  Zoc  : Zoc_cal(0 . 2) ; "  transfer  to  the  hard  drive  file  ":Data_flleS 

3900  GOTO  Fin 

Figure  B4  (cont)  Development  Program:  SCAN_ZOC_04 
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3910  Purs*_£ll*:  I 

3920  IF~ERRN-S*  THEN 

3930  PURGE  Data  dlacS 

39*0  END  IF 

39S0  RETURN 

3960  Fin:  ! 

3970  SUBEND 

3980  ! - - - - 

3990  I  SubEOutlna  loada  rao  data  ftoa  tha  hard  driva,  radueaa  tha  data  uains 
4000  I  oallbratton  eoaClelanta,  and  atoraa  tha  raducad  data  onto  tha  hard  driva 
4010  SUB  Raw_rad_dat(REAL  Zoe_eal(*)  BUFFER, F  IdS) 

4020  COM  /Namaa/  Buff  at  1,  Adel,  Bu££or2,Ade2.TliBar 
4030  INTEGER  Data_lnto«aE(l;32)  BUFFER 

4040  REAL  Data  raal(l:32),Data(32)  BUFFER 

4030  DIM  Data_flla2S[23] 

4060  ON  ERRCR~OOSUB  Pursa_flla 

4070  Data_tllolS>''  ZRAW”  AVALS  (  Zoe_cal  ( 0 , 2  ) ) 

4060  Data_dlaelS*Oata_fllalSA'‘;  ,700,0, 1-* 

4090  Data~£ila2S-"ZR”AVALS(Zoe_eal<0.2) )A~_"AF_ldS 

4100  Data_d',.ae2S4ata_flla2SA‘' :  ,700,0,1** 

4110  CREATE  BOAT  Oata^dlaelS, 1,8*33  I  Ccaata  BOAT  flla  of  33*8  byta  records. 

4120  ASSIGN  RData^pathl  TO  Oata_dlaclS 

4130  ASSIGN  iData_path2  TO  Data_dlse23 

4140  CONTROL  60ata_pathl,3;2  ISat  read  pointer  to  first  data  byta 

4130  I 

4160  t  Recover  raw  data,  convert  to  real,  raduea  than  atore  In  blocks 
4170  I  of  sanplsa  <32  porta  aeannad  par  block) 

4180  Fcm  Bloek>l  TO  2oe_eal(0,l) 

4190  ASSIGN  tBuff ar_pathl  TO  BUFFER  Data_lntacar<*); FORMAT  OFF 
4200  TRANSFER  •Bata_pathl  TO  •Buf2ar_pathl;COUNT  32*2 

4210  OORmOL  tBuf£sr_pathl,4;32*2 

4220  SELECT  Zoe  eal(0,2) 

4230  CASE  1 

4240  Iranslato<Adel,0ata  lntaAor(*),0ata  roal(*)) 

4230  -  CASE  2  ~  ~ 

4260  Translata(Ade2,Data  IntasarC*) ,Data  raal(*)) 

4270  CASE  3  “  “ 

4260  END  SELECT 

4290  I 

4300  t  Routine  to  raduea  raw  data  ualn«  polyncoial; 

4310  t 

4320  I  Data  -  aO  +  al**  +  a2*x*2  +  a3*x*3 

4330  I 

4340  I  where  a0,al,a2,  A  a3  are  Laaat  Square  coafflelants,  and  x  Is 
4330  I  tha  Individual  port  raw  data  value. 

4360  I 

4370  Saaqplo_tlma>Zoc_eal <  0 , 0 )  *  (Block- 1 ) 

4380  Oata(0)*4aB!pla  tloM  !  Store  raduea  data  ssnpla  tins. 

4390  FOR  K-1  TO  32  ~ 

4400  0ata(K}aZoe  cal(K,0)'fZoe  cal(K,l)*Data  raal(K)*Zoc  cal(K,2)*Data  real(K)~2+Zoc_cal(K. 3 )*D8ta_real(K) ' 

4410  NEXT  E  ~ 

4420  ! 

4430  ASSIGN  «Buffarjpath2  TO  BUFFER  DataC*) 

4440  CONTROL  «Buffar_path2, 4 ; 8*33 

4430  TRANSFER  «Buff*r_path2  TO  6Data_path2 

4460  ASSIGN  8Buffar_path2  TO  * 

4470  NEXT  Block 

4480  I 

4490  ASSIGN  80ata_pathl  TO  * 

4300  ASSIGN  8Dataj;)ath2  TO  * 

4310  ASSIGN  8Buf£ar_pathl  TO  * 

4320  PRINT  "Raducad  data  flla  for  Zoe  #";Zoc  cal(0,2);**  transfer  to  the  hard  drive  file  " ; Data_f  1  leZS 
4330  GOTO  Fin 

4340  Purge  file;  ! 

4550  IF”eRRN-54  THEN 


Figure  B4  (cont)  Development  Program:  SCAN_ZOC_04 
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*360  PURGE  Data_dl3c2S 

*370  BHD  IF 

*380  RETURN 

*390  Fin:  I 

*600  SUBENO 

*810  ! - - - 


Figure  B4  (cont)  Development  Program: 


SCAN  ZOC  04 
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APPENDIX  C.  DATA  FILE  MANAGEMENT 


SCAN_ZOC_05  generates  a  large  number  of  data  files  in  a 
short  period  of  time.  During  program  development,  it  was 
desiredsle  to  purge  these  files  from  the  "DATA”  hard  drive 
";,700,0,1"  to  keep  track  of  useable  files  and  remove  unwanted 
files.  The  utility  program  "PURGE_PROG",  Figure  Cl,  was 
developed  to  purge  SCAN_ZOC_0 5 -generated  data  files  from  the 
hard  drive.  This  program  can  be  used  when  known  bad  data  has 
been  collected  amd  it  is  desirable  to  purge  these  files  from 
the  hard  drive. 

PDRGE_PROG  is  located  on  the  UTILity  directory  (Figure 
Dl)  .  It  is  loaded  into  RAM  from  any  directory  and  run  by 
typing, 

1.  LOAD  "/UTIL/PURGE_PROG",  followed  by  depressing  the 
<Enter>  key  to  load  the  progreun  into  the  RAM. 

2.  RUN,  followed  by  the  <£nter>  key  to  execute  the  program. 

The  program  executes  a  CAT  command  and  displays  the  hard 
drive  files  as  illustrated  in  Figure  C2.  The  program  prompts 
the  user  for  the  date  (YMMDD) ,  the  first  run  number,  and  last 
run  number  of  consecutive  data  files  to  be  purged.  Program 
actions  are  displayed  on  the  screen.  The  program  prompts  the 
user  to  purge  more  files  or  to  re-display  the  remaining  files 
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using  the  CAT  conunand.  If  file  re— display  (2  CAT)  is 
selected,  the  program  prompts  again  for  the  date  and  run 
numbers.  Entering  <0,0, 0>  will  exit  the  program. 
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10  ! ProScan  to  purge  dasignatad  fllaa  from  SCAK_ZOC_OS 

20  CLEAR  SCREEN 

30  ON  ERROR  GOTO  Cont 

*0  DrlvaS-’:  ,700.0,l•• 

30  Input 1:  ! 

80  CAT  DrlvaS; SELECT  "Z” 

70  PRINT 

80  Inputs ;  ! 

90  INPUT  "Enter  data  (YMIDD),  begin  run#,  and  run#  (0,0,0*‘Exlt)'',Data$,Run0,Runl 

100  IF  RunO-O  THEN  Fin 

101  FOR  Zoc-1  TO  3 

102  FOR  Run>Run0  TO  Runt 

110  FllalS-”ZW"AVALS(Zoe)aOataS&VALS(Run) 

120  Fila2S>"ZC"&VALS(Zoc)&DataS&VALS(Run) 

130  FI la3S-" ZR"&VALS ( Zoe )&DataS&VALS (Run ) 

140  Purge!:  ! 

ISO  PURGE  FilalS&OrlvaS 

180  PRINT  "Purged  file:  ";FilalS 

170  Purges :  I 

180  PURGE  FllaSS&DrivaS 

190  PRINT  "Purged  file:  ";Fila2S 

200  Purges;  t 

210  PURGE  File3S&0rlveS 

220  PRINT  "Purged  file;  ";Fila33 

280  GOTO  Next 

290  Cont:  I 

300  IF  ERRN-S8  THEN 

310  SELECT  ERRLH 

320  CASE  130 

330  OOftO  Purges 

340  CASE  180 

330  GOTO  Purges 

360  CASE  210 

-370  GOTO  Next 

380  END  SELECT 

390  END  IF 

400  RETURN 

401  Next:  ! 

402  NEXT  Run 

403  NEXT  Zoe 
403  Print:  t 

406  PRINT 

407  INPUT  "Purge  aajre?  <0-No  l-Yee  2-CAT)", Act 

408  IF  Aet-1  THEN  InputZ 

409  IF  Aet-2  THEN  Inputl 

410  Fin:  I 

420  LOAD  "ZOC  MENU", 10 
430  END 


Figure  Cl 


TPL  Program: 


PURGE  PROG 
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:  ,700,0,1 


VOLUME  LABEL: 
FILE  NAME  PRO 

DATA 

TYPE 

REC/FILE 

BYTE/REC 

ADDRESS 

DATE 

TIME 

ZW12031S1 

BOAT 

97 

2 

392 

16-May- 92 

14:54 

ZW2203161 

BOAT 

97 

2 

394 

16-May- 92 

14:54 

ZW32031S1 

BOAT 

97 

2 

396 

18-May-92 

14:54 

ZC1203161 

BOAT 

33 

88 

398 

16-May- 92 

14:55 

ZC2203161 

BOAT 

33 

88 

611 

16-May-92 

14:33 

• 

ZC3203161 

BOAT 

33 

88 

624 

16-May-92 

14:35 

ZR1203161 

BOAT 

3 

264 

637 

18-May- 92 

14:55 

ZR22031S1 

BOAT 

3 

264 

642 

16-May-92 

14:35 

2313203161 

BOAT 

3 

264 

647 

16-May-92 

14:35 

Figure  C2  Hard  Drive  Sample  Listing  of  ZOC-14  DAS  Data  Files 
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APPENDIX  D.  TPL  PROGPAHS 


A  selection  of  programs  generated  for  use  at  TPL  are 
documented  in  this  Appendix.  The  programs  are  foiind  in 
individual  directories  according  to  their  specific  function  or 
purpose.  Figure  D1  displays  the  major  directories  and  the 
associated  programs.  Each  directory  is  identified  by  the 
forward  slash  character  ”/'*/  followed  by  the  directory  name, 
and  a  colon,  followed  by  the  system  drive  name  "CS80: ,700". 
Subdirectories  are  identified  by  the  PILE  TYPE  "DIR".  BASIC 
progr2uas  are  identified  by.  the  FILE  TYPE  "PROG". 

"AUTOST",  Figure  D2,  is  the  HP9000  initialization  program 
located  in  directory  "/WORKSTATIONS".  This  program  is  called 
by  the  BASIC  system  during  boot-up.  AUTOST  is  used  to  display 
the  Main  Menu  and  define  the  function  keys  used  to  select  the 
Sxib  Menus  and  associated  programs  in  the  HP9000  Data 
Acquisition  System. 

Turbocharger  performance  mapping  programs  (prepared  for 
student  laboratories)  are  listed  in  Figures  D3-D6.  The 
program  "SC^_TEMP",  Figure  D7,  is  used  to  monitor  temperature 
probes.  SCAN_TEMP,  as  listed,  monitors  temperature  probe 
outputs  from  the  Turbocharger  Test  Cell.  "TURBO_MENU" ,  Figure 
D8,  is  used  to  select  the  turbocharger  the  above  programs 
(Figures  03-07). 
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Turbomachinery  design  programs  used  in  the  course  AE  4431 
are  listed  in  Figures  D9-D13. 

Program  "SCAN",  Figure  D14,  is  used  to  operate  the  HG-78K 
Scanivalve  Controller,  HP3495A  Scanner,  HP3456A  Digital 
Voltmeter,  and  records  Scanivalve  transducers.  SCAN  and 
SCAN_TEMP  programs,  located  in  directory  /WORK/ DEVI CE_PROG, 
are  used  in  the  majority  of  programs  required  for  data 
acquisition  at  TPL. 

The  sub-program  "Plot”,  Figure  D15,  is  appended  to  the  end 
of  programs  used  to  display  plots  on  the  HP9000  CRT,  or  for 
generating  plots  on  the  various  plotters. 

The  stib-program  '•FNDate$**,  Figure  D16,  is  a  user-defined 
f\inctlon  to  calculate  numbered  values  for  the  date  in  the 
format  year,  month,  and  day.  FNDate$  is  in  sub-program 
”Date_func”,  which  is  located  in  the  directory 
/WORK/FUNCTION_PROG . 

"FILE_XFER",  Figure  D17,  is  a  utility  program  used  for 
file  transfer  and  "purging”  on  the  HP9000.  FILE_XFER  is 
located  in  the  /UTIL  directory. 

The  program  ”MAIN_MENU",  Figure  D18,  is  used  to  quickly 
restore  the  CRT  screen  to  its  system  display  and  call-up  the 
Main  Menu  screen.  The  program  is  located  in  the  root 
directory  /.  Loading  and  executing  MAIN_MENU  is  accomplished 
by  entering  the  following  command  on  the  HP9000,  and  executing 
the  command  by  depressing  the  Enter  key: 

LOAD  ”/MAIN_MENU" , 10  <Enter> 
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/V«RKSTATI0MS:CS80.  700 
LABEL; 

FORMAT:  HFS 

available  SPACE:  23328 


FILE 

NUH 

REC 

MODIFIED 

FILE  NAME 

TYPE 

RECS 

LEN 

DATE 

TIME 

PERMISSION 

OWNER 

GROUP 

BIN3.1 

DIR 

21 

32 

17-Jan-92 

14:25 

RWXRWXRVnC 

18 

9 

STUDENT  DIARY 

DIR 

87 

32 

14-Apr-92 

17:41 

RWXRWXRVIX 

18 

9 

AUTOST  ~ 

PROG 

11 

236 

29-Apr-92 

13:32 

RW-RW-RW- 

18 

9 

DIRECTORY  INFO 

PROG 

34 

236 

30-Apc-92 

15:11 

RW-RW-RW- 

18 

9 

/TURBINE :CS80.  700 
LABEL; 

FORMAT:  HFS 

AVAILABLE  SPACE;  23328 


FILE  NAME 

FILE 

TYPE 

NUM 

RECS 

REC 

LEN 

MODIFIED 
DATE  TIME 

PERMISSION 

OWNER 

GROUP 

TURB02 

PROG 

14 

236 

l-Oet-91 

17:40 

RW-RW-RW- 

18 

9 

TURB03 

PROG 

14 

236 

l-Ocfc-91 

17:43 

RH-RW-RW- 

18 

9 

TURB04 

PROG 

34 

236 

16-Oet-91 

16:01 

RW-RW-RW- 

18 

9 

TURBO 1 

PROG 

43 

236 

21-Oet-91 

7:39 

RW-RW-RW- 

18 

9 

TURBO_MEHU 

PROG 

7 

236 

29-Apr-92 

13:52 

RW-RW-RW- 

18 

9 

SCAN_fEHP 

PROG 

6 

236 

30-APE-92 

7:33 

RH-RW-RW- 

18 

9 

TURBO  BAX 

DIR 

4 

32 

20- Apr- 92 

13:49 

RWXRWXRMX 

18 

9 

/RP6944A:CS80,  700 
LABEL; 

FORMAT:  BFS 

AVAILABLE  SPACE;  23328 


FILE  NAME 

FILE 

TYPE 

NUM 

RECS 

REC 

LEN 

MODIFIED 
DATE  TIME 

PERMISSION 

OWNER 

GROUP 

£p_d«ta 

BDAT 

18 

236 

3-Jan-9Z 

7:52 

RW-RW-RW- 

18 

9 

CARD_TEST 

PROG 

444 

256 

3-Jan-92 

7:32 

RW-RW-RW- 

18 

9 

CONFIGURE 

PROG 

127 

236 

3-Jan-92 

7:53 

RW-RW-RW- 

18 

9 

LIBRARY  3 

PROG 

888 

236 

3-Jan-92 

7:34 

RW-RW-RW- 

18 

9 

VERIFY  ” 

PROG 

282 

236 

3 -Jan- 92 

8:02 

RW-RW-RW- 

18 

9 

nMnu_data 

BDAT 

71 

236 

3-Jan-92 

12:20 

RW-RH-RW- 

18 

9 

MENUER 

PROG 

136 

236 

3-Jan-92 

13:40 

RW-RW-RW- 

18 

9 

FRONT  P 

PROG 

174 

236 

3-Jan-92 

13:41 

RW-RW-RW- 

18 

9 

HP8944A_BAK 

DIR 

6 

32 

30-Apr-92 

12:37 

RWXRWXRWX 

18 

9 

TABULATE  ZOC 

PROG 

13 

236 

26-Apr-92 

13:40 

RW-RW-RW- 

18 

9 

READ_ZOC“ 

PROG 

11 

256 

29-ApE-92 

17:30 

RW-RW-RW- 

18 

9 

3CAN_20C  03 

PROG 

1148 

236 

30-Apr-92 

13:02 

RW-RW-RW- 

18 

9 

cal_head“phi 

PROG 

12 

236 

30-Apr-92 

13:49 

RW-RW-RW- 

18 

9 

LS_PLOT  “ 

PROG 

22 

236 

30-Apr-92 

14:33 

RW-RW-RW- 

18 

9 

DOCUMENT 

PROG 

39 

236 

13-Apr-92 

8:45 

RW-RW-RW- 

18 

9 

VER  CFO 

BDAT 

8 

256 

24-Apr-92 

16:31 

RW-RW-RW- 

18 

9 

BP6944A_MENU 

PROG 

7 

236 

7-Apr-92 

7:18 

RW-RW-RW- 

18 

9 

DEVELOPMENT 

DIR 

11 

32 

30-Apc-92 

13:07 

RWXRWXRWX 

18 

9 

PLOT_OATA 

PROG 

29 

236 

30-Apr-92 

14:18 

RW-RW-RW- 

18 

9 

2OC_COHriO_03 

BDAT 

3 

236 

26-Apr-92 

16:53 

RW-RW-RW- 

IS 

9 

ZOC_HENU 

PROG 

9 

236 

24-Apr-92 

12:33 

RW-RW-RW- 

18 

9 

Figure  D1  Listing  of  TPL  Programs  by  Directory 
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/DESIGH:CS80,  700 
LABEL; 

FOBMAT:  HFS 

AVAILABLE  SPACE:  23528 


FILE  NAME 

FILE 

TYPE 

HUM 

RECS 

REC 

LEN 

MODIFIED 
DATE  TIME 

PERMISSION 

OWWER 

GROUP 

OESIGH  BAK 

DIR 

4 

32 

30-Apr-92 

8:07 

RWXRWXRVOC 

18 

9 

DESIGH  MENU 

PROG 

8 

256 

16-D«c-91 

16:A1 

RH-RW-RW- 

18 

9 

R  AA31T 

FROG 

21 

256 

16-D«c-91 

13:59 

RW-RW-RM- 

18 

9 

A  **311 

FROG 

21 

238 

16-0«e-91 

14:01 

RM-RW-RH- 

18 

9 

IURB3 

FROG 

29 

236 

17-D«c-91 

14:32 

RW-RW-RW- 

18 

9 

TURBA 

FROG 

38 

236 

20-D«c-91 

16:42 

RW-RW-RW- 

18 

9 

/M0RK:CS80,  700 
LABEL: 

FORHAT;  HFS 

AVAILABLE  SPACE;  23528 


FILE 

HUM 

REC 

MODIFIED 

FILE  NAME 

TYPE 

RECS 

LEN 

DATE 

TIME 

PERMISSION 

OWNER 

GROUP 

FUNCTION  PROG 

DIR 

12 

32 

20-Aor-92 

14:33 

RV«RWXRWX 

18 

9 

DEVICE  pioG 

DIR 

22 

32 

30-Apr-92 

13:29 

RWXRWXRHX 

18 

9 

DISCREP  DOC 

FROG 

3 

236 

30-Dae-91 

11:39 

RH-RW-RW- 

18 

9 

/WORX/DEVICC  FROC;CS80,  700 
LABEL: 

FORMAT;  RFS 

AVAILABLE  SPACE:  23326 

FILE  HUM  REC  MODIFIED 


FILE  NAME 

TYPE 

RECS 

LEN 

DATE 

TIME 

PERMISSION 

OWNER 

GROUP 

CAL 

PROG 

7 

236 

20-Apr-92 

14:15 

RW-RW-RW- 

18 

9 

CAL_READ  PR 

PROG 

11 

236 

20-ApE-92 

14:16 

RH-RW-RW- 

18 

9 

set'bridge 

PROG 

6 

235 

20-Apr-92 

14:16 

RH-RW-RW- 

18 

9 

READ  PORT 

PROG 

5 

236 

20-Apr-92 

14:18 

RW-RW-RW- 

18 

9 

SCAH^PORT 

FROG 

4 

236 

20-Apr-92 

14:17 

RH-RW-RW- 

18 

9 

BCD  CONVERT 

FROG 

4 

236 

20-Apr-92 

14:17 

RW-RW-RW- 

18 

9 

SCAN_rEHP 

FROG 

8 

236 

20-Apc-92 

14:18 

RW-RW-RW- 

18 

9 

UNPACK 

FROG 

4 

236 

20-Apr-92 

14:23 

RH-RW-RW- 

18 

9 

HP37_PACK 

FROG 

3 

236 

20- Apr- 92 

14:23 

RW-RW-RW- 

18 

9 

HP37~BENCH 

FROG 

7 

236 

20-Apt-92 

14:24 

RH-RW-RW- 

18 

9 

HPST^BCO 

PROG 

2 

236 

20-Apr-92 

14:24 

IW-RW-RW- 

18 

9 

HP37-56 

FROG 

3 

236 

20-Apr-92 

14:24 

RW-RW-RW- 

18 

9 

HP56  PACK 

PROG 

7 

236 

20-Apr-92 

14:24 

RW-RW-RW- 

18 

9 

HP37  EXTl 

PROG 

4 

236 

20-Apr-92 

14:24 

RW-RW-RW- 

18 

9 

HP56iRQ 

PROG 

3 

256 

20-Apr-92 

14:26 

RW-RW-RW- 

18 

9 

HP56MEM 

PROG 

3 

•  236 

20-Apr-g2 

14:26 

RW-RW-RW- 

18 

9 

HP37  EXT2 

PROG 

4 

236 

20-Apr-92 

14:28 

RW-RW-RW- 

18 

9 

HP37  A(*) 

FR'JG 

3 

256 

20-Apr-92 

14:26 

RW-RW;RW- 

18 

9 

HP37~GRAPH 

PROG 

12 

256 

20-Apr-92 

14:27 

rw-rW-rw- 

18 

9 

HP37"lHT 

PROG 

12 

236 

20-Apr-92 

l4;27 

RW-RW-RW- 

18 

9 

scan” 

PROG 

11 

256 

27-Apr-92 

14 : 13 

RW-RW-RW- 

18 

9 

OUTPUT  9 

PROG 

5 

256 

30-ApE-92 

15:29 

RW-RW-RW- 

18 

9 

Figure  D1  (cont)  Listing  of  TPL  Programs  by  Directory 
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/WORK/FUNCTION_PROG:CS80.  700 
LABEL: 

FORMAT:  HFS 

AVAILABLE  SPACE:  23528 


FILE 

HUM 

REC 

MODIFIED 

FILE  NAME 

TYPE 

RECS 

LEH 

DATE 

TIME 

PERMISSION 

OWHER 

GROUP 

GRAPH 

PROG 

9 

258 

20-Apr-92 

14:20 

RW-RM-RW- 

18 

9 

GRAPH  PLOTTER 

PROG 

6 

256 

20-Apr-92 

14:20 

RW-RW-RW- 

18 

9 

Plot 

PROG 

10 

256 

20-Apr-92 

14:20 

RW-RW-RW- 

18 

9 

Oat*  tune 

PROG 

A 

256 

20-Apt-92 

14:20 

RW-RW-RW- 

18 

9 

Squata 

PROG 

A 

258 

20-Apr-92 

14:21 

RW-RW-RW- 

18 

9 

BUFFI 

PROG 

9 

258 

20-Apr-92 

14:21 

RW-RW-RW- 

18 

9 

LEAST  SQUARE 

PROG 

a 

258 

20-Apr-92 

14:21 

RW-RW-RW- 

18 

9 

LS  TEiT 

PROG 

18 

258 

20-Apr-92 

14:21 

RW-RW-RW- 

18 

9 

LS  PLOTl 

PROG 

17 

258 

20-Apr-92 

14:21 

RW-RW-RW- 

18 

9 

TEST 

BOAT 

A 

256 

20-Apr-92 

14:22 

RW-RW-RW- 

18 

9 

DATA  LOGGin 

PROG 

A 

256 

20-Apr-92 

14:22 

RW-RW-RW- 

18 

9 

stopwatch 

PROG 

A 

256 

20-Apr-92 

14:23 

RW-RW-RW- 

18 

n 

/UTIL:CS80.  700 

LABEL: 

FORMAT;  HFS 

AVAILABLE  SPACE:  23528 

FILE  HUM 

FILE  NAME  TYPE  RECS 

REC 

LEH 

MODIFIED 
DATE  TIME 

PERMISSION 

OWNER 

GROUP 

VERIFY 

PROG 

153 

258 

31-Jul-91 

18:54 

RH-RW-RW- 

18 

9 

BPIB  CHECK 

PROG 

4 

258 

9-Aus'91 

9:03 

RW-RW-RW- 

18 

9 

BACKUP 

PROG 

3S7 

258 

23-AUS-91 

14:03 

RW-RW-RW- 

IS 

•  9 

return  main 

PROG 

2 

258 

20- Apr-92 

14:34 

RW-RW-RW- 

18 

9 

MAIN.mmi 

PROG 

2 

258  20-Apr-92 

18:02 

RW-RW-RW- 

IS 

9 

PURGE  PROG 

PROG 

6 

258 

28-Apt-92 

15:49 

RW-RW-RW- 

18 

9 

COPY.FILES 

PROG 

4 

258 

30-Apt-92 

7:45 

RW-RW-RW- 

18 

9 

FILE_XFER 

PROG 

6 

256 

30-Apr-92 

8:20 

RW-RW-RW- 

18 

9 

LASERJET 

PROG 

3 

258 

30-Apr-92 

15:58 

RW-RW-RW- 

18 

9 

Figure  D1  (cont)  Listing  of  TPL  Programs  by  Directory 
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10 

! Program:  AUTOST 

20 

IDascriptlon: 

Program 

is  loaded  irmadlately  following  system  boot-up 

30 

t 

providing  an  initial  Usar  to  Computer  interface  through 

40 

1 

Function  Key  menu  selection. 

30 

CLEAR  SCREEN 

60 

KEY  LABELS  ON 

• 

70 

DUMP  DEVICE  IS 

711 

00 

ON  KEY  1  LABEL 

"  TURBO 

CHARGER”  GOTO  Turbo 

90 

OH  KEY  2  LABEL 

"COMPRESSLAB"  GOTO  Cooprassor 

100 

ON  KEY  3  LABEL 

"DESIGN" 

GOTO  Daaign 

110 

OR  KEY  4  LABEL 

"MULTI 

PROGRAM"  GOTO  Hp6944a 

120 

ON  KEY  3  LABEL 

"WORK 

DIR  "  GOTO  Work 

130 

OH  KEY  6  LABEL 

"BACKUP" 

GOTO  Backup 

140 

ON  KEY  7  LABEL 

"PROGRAM  LISTINGS"  GOTO  Directory 

ISO 

OH  KEY  0  LABEL 

"EXIT 

MENU"  GOTO  Exit 

160 

! 

170 

FRIHT  "HF9000  Sarlaa  300  Cooputar  Data  Acquisition  Systan" 

100 

PRINT 

190 

PRINT  "Itao: 

Select  Function  Key" 

200 

PRINT 

210 

PRINT  " 

Turbocharger  Lab  (*) 

FI" 

220 

PRINT  " 

Transonic  Cooiprassor  Lab  (*) 

F2" 

230 

PRINT  " 

Turbine  Design  Programs  (*) 

F3" 

240 

PRINT  " 

Multl-Progrannar  Opartlon  (HF6944A) 

F4" 

230 

PRINT  " 

Work  diraetory  (*) 

FS" 

260 

PRINT  " 

Backup  Files 

F6" 

270 

PRINT  " 

HP9000  Program  Listing  and  Information 

F7" 

280 

PRINT  " 

Exit  Menu 

F8" 

290 

PRINT 

300  FRIirt  "Rota;  Blnarlaa  zaqulrad  tor  RF14733A  CAT  progm  aza  loadad" 
310  nUHT  ^  to  oparata  tha  BP6944A  Multi-pzograanar.'' 

320  FRIHT  ”  Additional  blnarlaa  ara  loadad  with  aalaetlon  (*)." 

330  FRIRT 

340  FRIRT  ”  If  Error  2  oeeura;  Maanry  ovartlow;  roboot  syatao  using" 

330  FRIRT  "  SYSBOOT  stataoant  and  rasalaet  daslrsd  diraetory." 

300  t 

370  Hold;  I 

300  GOTO  Hold 

390  Turbo:  I 

400  GOSUB  Load  add  bln 

410  MASS  STORAGE  IS  "/TURBINE" 

420  LOAD  "TURBO_MEHU" , 10 
430  CoBipraaaor:  ! 

440  GOTO  Bold 

430  Daslgn;  I 

400  GOSUB  Load  add_bln 

470  MASS  STORACT  IS  "/DESICRt" 

400  LOAD  "DESIGH  MENU" ,  10 

490  BpS944a:  ! 

300  CLEAR  SCREEN 

310  MASS  STORAGE  IS  "/BFe944A" 

320  LOAD  "HFe944A  MENU", 10 
330  Work:  ! 

340  GOSUB  Load  add  bln 
330  MASS  STORAGE  IS  "/WORK" 

300  GOTO  Exit 

370  Backup;  ! 

300  LOAD  "/UTIL/BACKUF'MO 

390  GOTO  Exit 

600  Diroetocy; ! 

«10  MASS  STORAGE  IS  "/WORKSTATIONS" 

820  LOAD  "OIRECTORY'MO 

630  GOTO  Exit 

640  Load_add_bin ; ! 

630  LOAD  BIN  "/WORKSTATIONS/BIN5 . 1/GRAPHX" 

Figure  D2  TPL  Program:  AUTOST 
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seo  LOAD  BIN  "/WOWCSTATIONS/BINS.  1/TRAHS" 

670  LOAD  BIN  •'/HORKSTATIONS/BIMS .  1/XREF" 

680  LOAD  BIN  "/WORKSTATIONS/BINS. 1/SERIAL" 

690  LOAD  BIN  "/HORXSTATIONS/BINS. l/COMPLEX 

700  RETURN 

710  Exit: CLEAR  SCREEN 

720  END 


Figure  D2  (cont)  TPL  Program:  AUTOST 
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10  !  FILE  HAME:  "TURBOl" 

20  !  DISK  LABEL:  'VTURfllNE" 

30  I  DESCRIPTIOH: 

40  t  IBIS  PROG  RECORDS  AND  REDUCES 

SO  1  RAW  DATA  FOR  THE  T-18A40  TURBO-CHARGER 

60  !  AS  SET  UP  IN  APRIL/MAT  1980  (RESET  AUG  1991) 

70  !  CHAN  &  PORT  DESIGNATIONS  ARE  UNIQUE 

80  ! 

90  I  VARIABLES  FOR  S/V  SECTION 

100  !  V-DESIRED  S/V 

110  I  P>PRESENT  S/V  PORT 

120  I  VARIABLES  FCXt  TEHP  SECTION 

130  !  SS-SCANNER  LISTEN  CODE 

140  !  S-SCANHER  # 

130  !  CKHIANNEL 

160  !  V-DVH  READING 

170  !  AUTHOR;  TERRY  EARGLE 

180  !  DATE:  JUL  79  (MOO  MAY  80  BY  M.J.  KAISER) 

190  !  MODIFIED  BY  MIKE  JEOWAB  1987 

200  !  MODIFIED  BY  KELLYBARRIS/ALAN  MCGUIRE  1984 

210  I  MODIFIED  BY  RICK  WENDLAND  AUG  1991 

220  ! 

230  I  PROMPTS  A0DED>  ATMOSPHERIC  PRESS. 

231  t  RAW  AND  REDUCED  DATA  FILES  USE  DATE  RUN#  CONTEXT  IN  THEIR  HAME. 

240  I  REDUCTION  CHANGED  TO  USE  A  KEASURED~STATIC  PRESS  FOR  TURBINE 

230  I  PRESSURE  RATIO,  I.E.  INPUT  STAGNATION  PRESS,  OUTPUT  STATIC  PRESS. 

280  I 

270  I  SCANIVALUE  #1  SET  TO  ADVANCE  ONLYI 1 1 1 1 1 1 1 1 
280  CLEAR  SCREEN 

200  PRINTER  IS  CRT 

300  OISP  'PLEASE  WAIT  WHILE  RESETTING  SCANIVALVE' 

310  V-1 

320  A-1 

330  GOSOB  R«ad 

340  PRINT  "DATA  RUN  FOR  A  TURBO-CHARGER' 

330  PRINT 

360  DIM  X(20),Y(6).Q(8),M(23),T(19).Z(20).AS(14),BStl4} 

370  El~l  ISata  first  rscord  #>1 

380  INPUT  "STORING  DATA  ?  (YES-1  NO-0)",G1 

390  INPUT  "ENTER  MONTH, DAY, YEAR" ,X(3 ) ,X(3) ,X(7) 

400  PRINT  USING  "K.DO, ""/"" ,0D, ""/"".DO" ; "DATE  OF  RUN:  " ,X(3 ) ,X( 5) ,X(7 ) 
410  INPUT  "ENTER  RUN  #:",X(9) 

420  IF  Gl-O  THEN  310 

430  AS-"RAW  "4VALS(X<7))4VALS(X(3))AVAL3{X<3))A"_"AVALS(X(9)) 

440  BS-”RED~"4VALS(X(7))4VALS(X(3))4VALS(X(S))4"_~4VALS(X(9)) 

430  CREATE  ASCII  ASA" ; , 700, 0, 1" , 10  ICraatas  raw  data  flla 

460  CREATE  ASCII  BS4" ; , 700, 0, 1" , 10  ICraatas  raducad  data  flla 

470  ASSIGN  OPathl  TO  ASA" ; , 700 , 0 , 1" 

480  ASSIGN  8Fath2  TO  B$A"; ,700,0, 1" 

490  PRINT  "RAW  DATA  FILE  NAME:  ";A3 

300  PRINT  "REDUCED  DATA  FILE  NAME;  ":B3 

310  X(ll)-1  ISata  first  datat  point  #-l 

320  GOTO  600 

330  GOSUB  Sava 

340  FOR  1-2  TO  20  STEP  2  IRaaat  X(*)  for  prasauraa  to  zaro 

330  X(I)-0 

360  NEXT  I 

370  FOR  I-l  TO  3  IRaaat  Y(»)  for  temp  4  RPM  to  zaro 

380  Y(l)-0 

390  NEXT  I 

800  PRINT  USING  "/ ,K, 2D, 4X.K, 2D" ; "RUN  #" ,X(9) , "DATA  PT  #",X(11) 

610  GOSUB  1130 


B20  record  PRESSURES  ••••••••••••-•*•**•*«***••••***•• 

830  OUTPUT  722:"FlRlM0Z16STGlSTlT3"!Sets-up  HP3456A  DVM 

640  V-1  IScanivalva  #I  designated 


Figure  D3  TPL  Program:  TURBOl 
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830 
680 
670 
680 
690 
700 
710 
720 
730 
7*0 
730 
780 
770 
780 
790 
800 
810 
820 
830 
840 
830 
880 
870 
880 
890 
900 
910 
920 
930 
940 
930 
960 
970 
980 

990  Rvad:  OOTPVT  707  aSlK 
1000  po>srax(7a7) 

1010  L-BIIIAin)(P0,13} 

1020  Tl>itOTATE(PO,4) 

1030  H1-BINAIID(T1,7) 

1040  P-10*Ml+l 

1030  CLEAR  707 

1080  IF  P-A  THEM  Finish 

1070  OOTFOT  701; "C” 

1080  OWTFOT  701  USIBG  "DDD";V-1 

1090  OWTFOT  701; "C" 

1100  WAIT  . 1 

1110  SOTO  Rsad 

1120  Finish;  RETURN 

1130  l*•••**SUBFOUTI^IE  TO  BARO  PRESS  &  TEMPERATURES  ••••••••••*•••••••••«*•••* 

1140  OUTPUT  701; "C”  IClssr  scsnnsr  1 

1130  OUTPUT  722:"riRlM0ZlT3"  !Ssts-up  HP3436A  DVM 

1180  !»»»  BARO  PRESS  IS  MANUAL  INPUT  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 

1170  INPUT  "ENTER  BAROMETRIC  PRESSURE  IN  INCHES  HG".X(1) 

1180  I  INPUT  "ENTER  RPM".Y(8) 

1190  OUTPUT  703:"INAU1SM1"  *Ssts-up  HP3333A  Counter 

1200  ENTER  703; Hz  tColIsct  dsta  from  counter 

1210  y(8)-Hz*60 

1220  PRINT  USING  "/ ,K.  8D.DD.  lOX.K,  80, /" ;  "BAROMETERdN.  OF  HG)-" , X{  1 ) .  •RPM-"  ,  Y(6 ) 
1230  S>2  !HP493A  Scanner  #2  daaignatad 

1240  PRINT  USING  "3X,K.DD, /,  2X,K.  8X.K"  ;  "SCANNER  #"  .S.  "CHAN"  ,  "TEMP  (R)  " 

1230  FOR  C~1  TO  3  tCollactlng  tamparatures  (chls  1-3) 

1280  OUTPUT  708 ;"C" 

1270  OUTPUT  708  USING  "DDD":C  iScannat  #2 

1280  TRIGGER  722  'Trigger  OVM 

1290  ENTER  722 ;V 


Figure  D3  (cont)  TPL  Program;  TURBOl 


S~1  IRP3493A  Scanner  #1  designated 

PRINT  USING  "/.  3X.K.  ODD, /.2X,K.8X,K":"SCANI  VALVE  #"  .  V,  PORT"  .  "IN .  H20" 

FOR  A-1  TO  10  !Read  scanlvalva  port  values 

GOSUB  970 
WAIT  1.3 

OUTPUT  701 ;"C"  (Clears  Scanner  #1 

OUTPUT  701  USING  "DDD":V+9  (Scanner  #1  sat  to  raad  Scaniv  port 

TRIGGER  722  (Trigger  DVM 

ENTER  722;V0  (Raad  Scaniv  port  data  from  DVM 

A2-A»2 

X(A2)-V0*100000  (Sava  Scaniv  port  reading  In  X(*) 

PRINT  USING  -2X,DDD,7X,7D.D";P.X(A2) 

NEXT  A 

OUTPUT  701; "C"  (Clear  scanner  1 

GOSUB  1320 

PRINT  - 

DISP  "PLEASE  WAIT  WHILE  RESETTING  SCANIVALVE" 

A-1 

V-1 

GOSUB  Raad 

INPUT  "RETAKE  SAME  DATA  POINT?  (l-YES  0-HO)",U1 
IF  Ul-1  THEN  340 
IF  Gl-0  THEN  890 
GOSUB  Sava 

INPUT  "COLLECT  ANOTHER  DATA  POINT?  (l-YES  0-HO)".H 
X(ll)-X(ll]-*-l  Ilncramant  data  point  number 

IF  R-1  AND  Gl-O  THEN  340 
El-El+1 

IF  R-1  THEN  340 
GOTO  2830 

|*aaeaa  qq  Qp  MAIN  PROGRAM  **•***•**•***•*•*•*••••***•••*»••••«••*•****« 

I 

laaaaae  SUBROUTINE  READ  AND  POSITION  S/V  PORTS  »••••••»•»**»••»***••»•*•• 

I  »»»SCARIVALVB  #1  HAS  INOP  BDME  FEATURE<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
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! storing  tamporatutss  In  TC*) 


1300  T(C)-V 
1310  NEXT  C 

1320  FOR  C-2S  TO  26  'Coilactlng  tamp  Cchls  23-26) 

1330  OUTPUT  708; "C" 

13*0  OUTPUT  708  USISG  "DDD":C  .'Seannar  #2 

1330  TRIGGER  722  iTrlggar  OVM 

1380  EMTER  722 :V 

1370  T(C-7)-V  'Storing  taoparaturaa  In  T(18),T(19) 

1380  NEXT  C 

1390  OUTPUT  708; "C" 

1*00  CLEAR  722 
1*10  I{8)-T(3) 

1*20  T{7)-T(5) 

1*30  T(3)-T(2)+T(18) 

1**0  T<3)-I(*)+T(19) 

1*30  FOR  C-1  TO  3 

1*80  T(C)~FNT(T(C)*1000)+*60  iConvarta  tamp  to  dag  Ranklna 

1*70  PRINT  USING  "EX.DDD, 8X. 60.0“ ;C,y(C) 

1*80  NEXT  C 

1310  RETURN 

1320  !***aaa  SUBROUTINE  FOR  DATA  REDUCTION 

1330  t  TURBINE  STATIC  OUTLET  PRESSURE  WAS  CBANGED  FRCH 

13*0  I  ATMOSPHERIC  TO  A  VALVE  MEASURED  IN  THE  TURBINE  OUTLET  FLOW 

1330  I 

1360  t  VARIABLES  FOR  THIS  SECTION 
1370  I  H  IS  STQRAGE  ARRAY 

1380  I  0-MATRlX  OF  PRESSCIN.  OF  B6) 

1390  I  MID-TURBINE  HEAD(DELTA  P  ORIFICE) 

1600  t  M(2)-CGMPRXSS0R  BEADIOELTA  P  COMPRESSOR) 

1610  I  Tl-ORXVICE  EXPANSIOR  FACTORITURaiRE) 

1620  t  y2-0R2FICE  EXPANSION  FACTORICOMPRESSOR) 

1630  I  K1-OISCBAR6E  COEF  FOR  FEED  ORIFICE  (TURB) 

16*0  I  K2M)ISCHAR6E  COEF  FOR  FEED  ORIFICE  (COMP) 

1630  t  CX  SUB  P  FOR  AIR-  0.2* 

1660  t  C8KX)NT  FACTOR  BTn->HP 

1670  I  C7-(aANM-l/6AMM)  VTITB  6AMHA-1.* 

1680  I  Zl-QRIFACE  FACTOR  (TURB) 

1690  I  Z2-OR1FACX  FACTOR  (COMPRESSOR) 

1700  I  A3-ALPHA  FACTOR  (THERMAL)  IN  FLOW  EON  (TURB) 

1710  I  A*-ALFBA  FACTOR  (THERMAL)  IN  FLOW  EQN  (COMP) 

1720  !  K3-FACTOR  IN  FLOW  EQN  (TURB) 

1730  !  K*-FACTOR  IN  FLOW  EQN  (COMP) 

17*0  I  Fl-FIRST  ITERATION  OF  FLOW  RATE  (TURBINE) 

1730  !  F2-FIRST  ITERATION  OF  FLOW  RATE  (COMPRESSOR) 

1760  I  M(3)-TURB  FLOW  RATE 

1770  I  H(*)"C0MP  FLOW  RATE 

1780  I  M(3)-TURB  BP 

1790  !  M(8)«C0MP  BP 

1800  I  M(7)-TUHB  PRESS  RATIO  (IN/OUT) 

1810  I  M(8)'<OMP  PRESS  RATIO  (IN/OUT) 

1820  !  M(9)-TURB  EFFICIENCT  (TOTAL-STATIC) 

1830  !  M(10)-C0MPRESSOR  EFFICIENCY  (TOTAL-TOTAL)  MJ 

18*0  f  TO-REF  TEMP  (318.7  DEG  R) 

1830  I  .  M(11)-SQRT  OF  THETA  (TURB)  (T(1H)/T(REF) )‘0 . 3 
1860  I  M( 12) -SORT  OF  THETA  (COMP) 

1870  t  DO-REF  PRESS  (29.92  IN.  HG) 

1880  I  M(13)-REF  PRESS  RATIO  (TURB  IN/REF) 

1890  I  M(1*)-REP  PRESS  RATIO  (COMP  IN/REF) 

1900  I  M(13)-REF  TURB  FLOW  RATE 

1910  I  M(18)-REF  COMP  FLOW  RATE 

1920  !  M(17)-REF  TURB  RPM 

1930  I  M(18)-REF  COMP  RPM 

19*0  !  M(19)-REr  TURB  HP 

1950  !  M(20)-REF  COMP  HP 

1960  !  M(21)-DELTA  TEMP(TURB) 
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1970  I  M(22)-DB1.TA  TEMP(COMP) 

1980  !  M(23)-H£A0  COEFFICIEHT 

1990  MAT  Q>  (0) 

2000  FOR  I>6  TO  20  STEP  2 

2010  <I(I/2-2)-((X(I)-X(2))«.07333)+X(l) 

2020  NEXT  I 

2030  M(l)-X(8)-X(8) 

20*0  M(2)-X(l*)-X(16) 

2030  Yl-l-.028ni(l)/Q(l) 

2080  Y2-l-.02381»M(2)/(3(3) 

2070  K1-1.M03 

2080  K2-.  63094 

2090  C9-.24 

2100  08-1.414838384 

2110  C7-. 2837142837 

2120  Z1-1.»K:9«(((Y(1)-480)/100)-1) 

2130  Z2-1.94C9*(((Y(4)-*80)/100)-l) 

2140  A3-l+.002044*((Y(l)-328)/100) 

2130  A4-l-f .  002044*  ( (Y(4)-328)/100) 

2180  K3-. 00327673 

2170  K4-. 0013472 

2180  Fl-Kl*A3*Yl*St3RT(ABS<Q<l)*M<l)/Y<l))) 

2190  F2-1C2*A4*Y2*S<3RT(ASS(0(S)*M(2)/Y(4))) 

2200  M(3)-F1/2*(1+SQRT(ABS(1+4*K3*Z1/F1))) 

2210  M( 4 )-F2/2* ( 1+SQRT( ABS ( 1+4*K4*Z2/F2 ) ) ) 

2220  M(21)-Y(2)-Y(3) 

2230  M(22)-Y<S)-Y(4) 

2240  M(S)-M(3)*C9*M(21)*C8 
2230  M<8)^(4)*C9*M(22)*C8 
2260  H(7)^(3)/q(4) 

2270  H(8)-()(8)/Q(7) 

2280  M<9)-tM(21)/Y(2))*<l/<l-<Q(4)/Q(3))*C7))*100 
2290  M<10)-Y(4)/M^22)*<(M<8)*C7)-1)*100 
230P  10-318.7 
2310  M(11)-SQRT(T(2)/T0) 

2320  M(12)-sqRT(T(4)/T0) 

2330  DO-29.92 

2340  M(13]-q(3)/D0 

2330  M<14)-q(7)/00 

2360  M(13)-M(3)*M<11)/M{13) 

2370  M(16)-H(4)*M(12)/M(14) 

2380  M(17)-Y<6)/M<11) 

2390  H(10)-Y(0)/M(12) 

2400  M(19)>41(3}/(M(13)*M(11)} 

2410  M(20)-M(8)/(M(14)*M(12)} 

2420  M<23)-12872868*Y(2)/Y<6)*2*(l-<q(4)/Q(3))*C7) 

2430  PRIRT 
2440  PRIRT 

2430  PRIRT  "REDUCED  DATA:" 

2460  PRIRT 

2470  PRIRT  "HEAD  COEFFICIEHT-" :M<23 ) 

2480  PRINT  USING  "/.8X,K";"HP  FLC3M  DELTA  PRESS  EFF  FLOW  RPM  HP" 

2490  PRIRT  USING  "17X,K" ; "RATE  TEMP  RATIO  (REF)  (REF)  (REF)" 

2300  (PRINT  "nOaC_XXXXX.X_XXXXXX.XXX_XXXXXX.X_XXXXXX.XXX_XXXXXX  X_XXXXXX.XXX_XXXXXX_XXXXX.X" 

2310  PRINT  USING  "/ .K.X, 3D . D.X. 60 . 3D , X , 6D .D.X. 60 . 3D,X. 6d”d.X, 8D . 3D ,X , 6D.X. 5D . D" : "TURB" .M( 5) ,M( 3 ) 
2320  PRIRT  USING  "/ ,K,X, SD.D.X, 6D . 3D .X, 6D . D .X. 60. 3D,X, 6D . D.X. 60 . 3D , X , 6D,X. 50 . D" ; "COMP" ,M( 6 ) ,M( 4 ) 
2330  I 
2340  RETURN 

2330  I****  SUBROUTINE  TO  SAVE  DATA  POINT  ON  HARD  DRIVE  :. 700. 0.1  **•••••*«***• 

2360  Sava;  OUTPUT  9Pathl;AS 

2370  OUTPUT  6Pathl;El 

2380  OUTPUT  iPathl :X(*) . Y(*) . T(* ) 

2390  OUTPUT  6Path2;BS 
2800  OUTPUT  6Path2;El 
2810  OUTPUT  8Path2;M(») 
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2620  RETUHN 

2630  REM***«  END  OF  SUBROUTINES  **•***•***•*••*••■ 

2640  I 

2630  LOAD  "TURBO  LAB". 10 
2660  END 
2670  I 

2680  REM***«  FUNCTION  FOR  TEMPERATURE  COMPUTATION 

2890  DEF  FNT(V) 

2700  Sl-32. 1*4+33. 77*7-. *318*V“2 

2710  S2-33. 232+3*. 88*7-. 1833*V"2 

2720  IF  Sl<100  THEM  2740 

2730  S1-S2 

2740  RETURM  SI 

2730  FMEND 

2760  REM****  END  OF  USER  DEFINED  FUNCTIONS  **••**< 


Figure  D3  (cont)  TPL  Program: 
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10  !  PROGRAM:  TURB02  (OLD  TURB03) 

20  I  MODIFIED  BF:  R.  SHREEVE  10/8/86 

30  I  R.  HENDLAND,  LCDR,  USN,  9/17/91 

40  CUM  SCREEN 

SO  DIM  X(20}.y(8>.T(19).IS{12].OS[12],U3(14] 

60  INTEGER  El 

70  PRINTER  IS  CRT 

SO  INPUT  "ENTER  RAW  DATA  FILE  NAME:", US 

90  INPUT  "ENTER  DATA  POINT  RECORD  NUMBERS  (LOW,  aiGH):",A,B 

100  INPUT  "DO  TOO  WANT  TO  DISPLAY  RESULTS  TO  SCREEN  OR  PRINTER  (SCUtEEN-O  PRINTER-1 )?" .R 

110  IF  R-0  THEN  130 

120  PRINTER  IS  711 

130  ASSIGN  SPath  TO  U3&": ,700,0,1" 

140  ON  END  SPath  GOTO  Continual 
ISO  GOSUB  Raad 

160  IS-"  INLET" 

170  OS-"  OUTLET" 

180  PRINT  " - '■ 

190  PRINT  TAB(23);"CUMaRS  TURBOCHARGER  MEASURED  DATA" 

200  PRINT  " - " 

210  PRINT  USING  "16X,K,DD, 19X,K,DD,K,DD,K,DD" ; "HUH  #" ,X(9) , "DATE:  " ,X(3 ) , "/" ,X( 5) , "/" ,X(7) 

220  PRINT  " - - - - - " 

230  PRINT  USING  "/,/ ,27X,K": "PRESSURES  (IN.  H20  GAUGE)" 

240  PRINT  USING  "20X,K, 3X,K" ; " |  ORIFICE  |  TURBINE  |  NOZZLE".")  COlPRESSOR" 

2S0  PRINT  "POINT  TARE  CALIB.  | " ;TAB(36); " | ";TA8(51) ; " | ";TAB(66) : " | " 

260  PRINT  USING  "K, 14X,K,K.K,K,K,K,K,K" ; "  NO.  ", IS. OS, IS. OS, IS. OS, IS. OS 

270  PRINT  USING  "100,60.80,7D.aD,7D,aD,7D,8D,8D"; 1,2.3,4, S.6.7.8,9, 10 

280  PRINT  " - " 

290  Pxintl:  IF  SKA  THEN  Loopl 

300  PRINT  USING  "30. 80.0, SO. 0,60. 0,30.0, 60. O,SD.0,6D.D, SO. 0,8D.0,SD.D";X(11}.X(2).X(4).X(8).X(8) 
310  IF  El-B  THEN  Continual 
320  Loopl :GOSUB  Raad 
330  GOTO  Prtntl 

340  Continual:  PRINT . . . 

3S0  ASSIGN  tPath  TO  USA": ,700,0,1" 

360  ON  END  tPath  GOTO  Continual 

370  El-0 

380  GOSUB  Raad 

390  IS-"  INLET" 

400  03-"  OUTLET" 

410  PRINT  USING  "/,/, 47X,K" ; "TEMPERATURES  (DEG  R)" 

420  PRINT  USING  "28X,K":"l" 

430  PRINT  USING  "E, 3X.K. 4X,K, lOX.K, 6X.K,7X,K, 4X.K" ; "POINT" , "RPM" , "ATM.  PRESS  | | "TURBINE" , " 
440  PRINT  USING  "K, 13X.K,E.K,K,K" ; "  HO. "; "(IN. BG)  ORIFICE" , IS . OS , IS . OS 

430  PRINT  USING  "23X, 110, 110, 100, 110, 100" ; 1,2,3, 4, 3 

460  PRINT  " - - - - - " 

470  Prints ;  IF  E1<A  THEN  Loap2 

480  PRINT  USING  "30, IID, 80 . DO. 90.0, 90.D. 80. D, 9D . D. 8D.D" ;X( 11) ,1(8) .X( 1 ) , Y( 1 ) , Y (2) . Y(3 ) . Y( 4 ) , Y( S) 
490  IF  El-B  THEN  Continual 
300  Loop2: GOSUB  Raad 
310  GOTO  Prints 

520  Continual:  PRINT  " - - - - 

330  PRINT  rAB(21):"HDTE:  CHANNEL  AND  PORT  NUMBERS  INDICATED" 

340  PRINT  " . - - - - - " 

330  GOTO  Hold 

360  Raad:  ENTER  8Path:A3 
370  ENTER  6Fath;El 

380  ENTER  8Path;X(*) 

390  ENTER  aPath:Y(«) 

800  ENTER  8Path:T(*) 

610  RETURN 

820  Hold:DlSP  "F2  TO  CONTINUE" 

630  PAUSE 

640  PRINTER  IS  CRT 

830  LOAD  "TURBO_LAfl"  .  10 

#igul?0  D4  TPL  Program:  TURB02 
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10  t  FROCRAM;  TURBOS  (OLD  TURB04) 

20  I  MODIFIED  BT:  R.  SBREEVE  10/8/86 

30  !  R.  WENDLAND,  LCOR,  USH.  9/20/91 

40  CLEAR  SCREEN 

30  DIM  X(20),ir(6),T(19).M(23).U3(141,VStl41 

60  INTEGER  E1,E2 

70  PRINTER  IS  CRT 

80  INPUT  "ENTER  RAH  DATA  FILE  NAME: ".US 

90  INPUT  "ENTER  REDUCED  DATA  FILE  NAME:", VS 

100  INPUT  "ENTER  DATA  POINT  RECORD  NUMBERS  (LCH.  BI6H):",A,B 

110  INPUT  "DO  TOO  HANT  TO  OISPLAT  RESULTS  TO  SCREEN  OR  PRINTER  (SCREEN-0  PRIHTER-1)?",R 

120  IF  R-0  THEN  140 

130  PRINTER  IS  711 

140  ASSIGN  tPathl  TO  USA";, 700, 0,1" 

130  ASSIGN  NPathS  TO  VS&": ,700,0,1" 

160  ON  END  tPathl  GOTO  Continual 
170  OR  END  SPath2  GOTO  Continual 
180  GOSUB  Raad 

190  PRINT  " - - - - - 

200  PRINT  TAB(23);'CUl*aNS  TURBOCHARGER  CALCULATED  DATA" 


210 

220 

PRINT  . 

PRINT  USING  "16X,K,DD,19X,K,DD,K,0D.K,DD"; 

"RUN  #",X(9) 

, "DATE : 

",X(3), 

■7".X(3),"/".X{7) 

230 

240 

230 

PRINT  " - 

PRINT  USING  "/,/,32X,K"i "TURBINE  DATA" 
PRINT  USING  "9X,K"; "POINT  PRESS  REF 

REF 

BP 

REF 

BEAD 

EFF" 

280 

PRINT  USING  "10X,K";"HO.  RATIO  RPM 

FLOW 

HP 

COEFF 

(X)" 

270 

280 

PRINT  USING  "18X,K,9X,E"j"(P8/PS)","(LBM/SEC)" 

PRINT  USING  "lOX.K";"  M(7)  M(17)  M(13) 

M(S) 

M(19) 

M(23) 

M(9)" 

290 

PRINT  " - 

300  Pxlntl:  IP  EKA  THEN  Loopl 

310  PUNT  USING  "9X,30,eD.20,9D,3D.3D,6D.2D,SD.20,3D.3D,SD.D";X(ll),M(7)  ,M(17)  ,M(1S)  ,M(S)  .M(19) , 
320  IP  El-B  THEN  Continual 
330  Loopl;GOSUB  Raad 
340  GOTO  Pxlntl 

330  Continual;  PRINT  - - - - . 

360  ASSIGN  EPathl  TO  USA"; ,700,0,1" 

370  ASSIGN  EPathS  TO  VSA" ; , 700, 0, 1" 

380  OR  END  EPathl  GOTO  Continual 
390  ON  END  iPathS  GOTO  Contlnua2 
400  El-0 


410 

GOSUB 

Raad 

420 

PRINT 

USING  "/./,30X,K"; "COMPRESSOR 

DATA" 

430 

PRINT 

USING  "9X,K"; "POINT 

PRESS 

RPM  REF 

REF 

BP 

REF 

EFF" 

440 

PRINT 

USING  "10X.K":"HO. 

RATIO 

RPM 

FLOH 

HP 

(X)" 

430 

PRINT 

USING  "13X,K,16X,K" 

"(P10/P9)"."(LBM/SEC)" 

460 

PRINT 

USING  "lOX.K":" 

M(8) 

M(18) 

M(18) 

M(6) 

M(20) 

M(10)' 

470  HUNT  - - - 

480  Prints:  IF  E1<A  THEN  Loop2 

490  PRINT  USING  "9X, 30, 6D. 2D. 90, 8D. 40 . 3D. 3D . 2D. 4D . 2D . 4D . D" :X( 11) .H( 8) , Y(6) ,M( 18) ,M( 16 ) ,M(6) ,M( 20) 
300  IF  El-B  THEN  Continual 
310  Loop! -.GOSUB  Raad 
320  GOTO  Prints 

330  Continual:  PRINT  - - 

340  GOTO  Hold 
330  Raad:  ENTER  SPathl;AS 
360  E.TER  gPathl;El 
370  ENTER  •Pathl;X(*) 

380  ENTER  SPathliTC*) 

390  ENTER  gPathl;T(*) 

800  ENTER  gPath2;B3 
610  ENTER  aPath2;E2 
620  ENTER  SPath2;M(*) 

630  RETURN 

640  Hold:DISP  "12  TO  CONTINUE" 

630  PAUSE 

Figure  D5  TPL  Program:  TURB03 
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660  PRINTER  IS  CRT 
670  LOAD  "TURBO  LAB". 10 
680  END 


Figure  D5  (cont)  TPL  Program:  TURB03 
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10  tProgran:  TURB04  Plots  data  from  designated  ASCII  files  to  the  CRT  or  Printer 

20  tOavaloped;  by  R.  Wendland,  LCDR,  USN,  22  Sept  1991 

30  I 

40  DIM  TltlaS[S0],X  labsI3(S3],Y  labal3(S0] .Red  £llaS[ 14] .H(23 ) .DataK 1 ; 20 . 23 > . Data2( 1 ; 20 . 23 ) 
SO  OSAR  SCREEN 
80  lEY  LABELS  OFP 

70  PRINTER  IS  CRT 

80  I 

90  ! -  Load  working  matrix  Data;  - 

100  Loadjsatrix:  I 

110  IHFtIT  "Huaibsr  of  plots  par  graph  (1  to  3):",NvBB_plots 
120  FOR  K-1  TO  Nunjplota 

130  INPUT  "Enter  raducad  data  flla  naBio;",Rad_flle3 

140  PRINT  "Data  file  ":Rad  fllaS 

130  ASSIGN  SPath  TO  Rad_flleSA":  .TOO.O.l'- 
lSO  ON  END  8Path  GOTO  410 
170  I-l 

180  Read;ENTER  8Path;A3 
190  ENTER  8Path;El 

200  ENTER  8Path;M(*) 

210  SELECT  K 
220  CASE  1 

230  FOR  J-0  TO  23 

240  DataKI,  J)-M(J) 

230  NEXT  J 

280  Dl-Dl+l 

270  CASE  2 

280  FOR  J-0  TO  23 

290  0ata2(I,J)*4i(J) 

300  HEJCT  J 

310  DS-OS-tl 

320  CASE  3 

330  FOR  J-0  TO  23 

340  0ata3(I,J)>41(J) 

330  NEXT  J 

380  DO-OO-tl 

370  END  SELECT 
380  l-I+l 

390  GOTO  Read 

400  I-O 

410  NEXT  K 
420  ! 

430  I - Define  graph  parameters;  - - - 

440  Graph_paraaeter ;  ( 

430  INPUT  "Enter  graph  title;", Titled 

480  PRINT  "Graph  title;  ":TltleS 

470  INPUT  "Enter  X-axls  label; ",X  labelS 
480  PRINT  "X-axls  label:  ";X  labelS 

490  INPUT  "Enter  Y-axis  labelT".Y  labelS 
500  PRINT  "Y-axis  label;  ":Y_label'‘ 

310  INPUT  "Enter  X-axls  and  Y-axis  M-valuesi  M(x).M(y)  );'',X,Y 

520  FOR  K-1  TO  Num_plots 

530  SELECT  K 

540  CASE  1 

550  PRINT 

560  PRINT  "Data  file 

570  PRINT  X_labelS;TAB(25):Y_labelS 

580  FOR  I-l~TO  D1 

590  PRINT  Datald.X)  .DatsKI.Y) 

600  NEXT  I 

810  CASE  2 
620  PRINT 

830  PRINT  "Data  file  #";K;":" 

840  PRINT  X  labelS;TAB(25) ;Y_labelS 

650  FOR  I-l~TO  D2 

Figure  D6  TPL  Program:  TURB04 
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660  PRINT  Data2(I,X) ,Data2(I,Y) 

670  NEXT  I 

680  CASE  3 

690  PRINT 

700  PRIir  "Data  file 

710  PRINT  X_labelS:TAB(25);Y_labelS 

720  FOR  I-l  TO  03 

730  PRINT  Data3(I,X),Data3(I,Y) 

7*0  NEXT  I 

730  END  SELECT 

760  NEXT  K 

770  INPUT  "Enter  Xnln.  Xaax.  Ynin,  Yinar:",Xo,Xf,Yo,Yf 
780  ! 

790  ! - Graph  data - 

800  Graph_data;  ! 


810 

820 

830 

8*0 

830 

860 

870 

880 

890 

900 

910 

920 

930 

9*0 

930 

960 

970 

980 

900 

1000 

1010 

1020 

1030 

10*0 

1030 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

11*0 

1130 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

12*0 

1230 

1280 

1270 

1280 

1290 

1300 


CLEAR  SCREEN 

GINIT 

Xso^Xo 

Xsf-Xf 

Yso“Yo 

Yaf-Yf 

Xa_range“Xsf-Xao 

Ya_range“Y3f-Yao 

Xscala~l 

Yacale*! 

IF  Xa_ran8e<1000  THEN 
X*_ran8e“Xa_range»10 
Xacale-Xicala*10 


! Initialize  graph  routine 
!  Initialize  all  scaling  variables 


!  Scale  up  graph  variables  for  mlnlnum  of 
!  of  1000  units  of  resolution  across  x-azis 


GOTO  910 
END  IF 

IF  T*_range<1000  THEN 
y*_r*nge“Ts_range*10 

yaeal*»Ysaala*10 

GOTO  960 
END  IF 

Xse«Xe*Xseals 

Xsf-Xf*Xseale 


t  Seals  up  graph  variables  for  mlnintn  of 
I  of  1000  units  of  resolution  across  y-axls 


!  Finalize  all  sealing  variables 


Yso-Yo*Yseale 
Ysf-Yf»Yseale 
Xs_range»Xs£-Xso 
Ys_ran8e“Ysf-Yso 
LC^  6 

MOVE  100*RATIO/2,100 
LABEL  Titles 
CSIZE  3.3 
MOVE  100*RATIO/2,0 
LORG  * 

LABEL  X  labels 
DEG 

LDIR  90 
LORG  6 
MOVE  0,30 
LABEL  Y_labelS 
LDIR  0 
LORG  2 

VIEWPORT  10.90»RATIO,10.90 
FRAME 


ILangth  of  X-axls 

(Length  of  Y-azls 

(Character  ref  pt:top  center 

(Move  cursor  to  screen  loc  for  labels 

(Plot  title 

(Sizes  labeling 

(Move  cursor  to  bottom  center  screen 
(Character  ref  pt:battom  center 
(X-azis  label 
(Daslg  degrees  for  LDIR 
(Sets  Y-azls  label  on  end 


(Y-azls  label 

(Reset  label  to  horizontal  orientation. 
(Chr  ref  pt:left  center 
(Sets  graph  screen  size 
(Box  around  VIEWPORT 


WINDOW  Xso.Xaf.Yao.Ysf  (Set  axis  lengths  In  VIEWPORT 

AXES  Xs_range/10,Ys_range/10.Xso, Yso  (Axes  intersect  at  lower  left 

AXES  Xs_range/ 10 , Ys_cange/10 ,Xsf , Yaf  (Axes  intersect  at  upper  right 

CLIP  OFF  (So  labels  can  print  outside  VIEWPORT 

CSIZE  3.0,.*  (Axes  label  size 

LORG  8  (Number  X-axis 


FOR  I-Xso  TO  Xsf  STEP  Xs_range/10 
MOVE  I,Yso-.01*Ys_range 


Figure  D6  (cont)  TPL  Program:  TURB04 
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1310  LABEL  USING  :  I/Xscala 

1320  NEXT  I 

1330  LONG  8  fNumbar  T-axls 

13*0  FOR  I-lfao  TO  Yaf  STEP  Ya_range/10 

1350  MOVE  Xao-.01*Xa_ran8€.I 

1360  LABEL  USING  ;  I/Yacala 

1370  NEXT  I 

1380  FOR  K-1  TO  Humjplota 
1390  SELECT  K 
1*00  CASE  1 

1*10  FOR  I-l  TO  01 

1*20  PLOT  DaLaKI ,X)*Xscala , DaLaK I , Y)*Y3cala, **2  !  Plots  Datal  aa  squaras 

1*30  PDIR  *5 

1**0  POLYGON  .01*Xa  range,* 

1*50  NEXT  I 

1*60  CASE  2 

1*70  FOR  1-1  TO  02 

1*80  PLOT  0ata2(I,X)*Xacala,Data2(I,Y)*Yacals,-2  •  Plots  Data2  aa  diamonds 

1*90  POIR  0 

1500  POLYGON  .01*Xs  range,* 

1510  NEXT  1 

1520  CASE  3 

1530  FOR  1-1  TO  03 

15*0  PLOT  0ete3 ( I , X) *Xacela , 0ata3 C I , Y)*Yscela , ~2  !  Plots  Data3  aa  trianglaa 

1550  POIR  90 

1560  POLYGON  .01*Xs  range, 3 

1570  NEXT  1 

1580  END  SELECT 

1590  NEXT  K 

1600  IF  Plot-0  THEN  Herd  coity  ' 

1610  OUHP  GRAPHICS  #711  ~ 

1620  GOTO  Aoottie«_plot 
1630  t 

16*0  I——  Herd  copy  plot*  of  graphs  — — - — - - - - — - 

1650  Basd_eopy:  t 

1680  INPUT  "Plot  graph;  <No-0  Prlntar-l  Plott*r-2)~,Plot 
1670  IF  Plot-0  THEN  Anoth*r_plot 
1680  IF  Plot-1  THEN  Graph_data 


1690 

Plotter  rout'  ---- 

1700 

Plotter;  1 

1710 

PRINTER  IS  712 

1720 

Xso-Xo 

!  Inltializa  all  scaling  variablaa 

1730 

Xsf-Xf 

17*0 

Yso-Yo 

1750 

Yaf-Yf 

1760 

Xs  ranga-Xsf-Xao 

1770 

Ys  ranga-Ysf-Yso 

1780 

Xscala-1 

1790 

Yscale-1 

1800 

IF  Xs_ran8*^1000  THEN 

!  Seal*  up  sraph  variables  for  mlnlnum  of 

1810 

Xa_ran8e-Xa  rang**10 

*  of  1000  units  of  resolution  across  x-axls 

1820 

Xscale-Xscals*10 

1830 

GOTO  1800 

18*0 

END  IF 

1850 

IF  Ys_range'^1000  THEN 

f  Scale  up  sraph  variables  for  mlnlnum  of 

1860 

Ya^ranga-Ys  range*10 

!  of  1000  units  of  resolution  across  y-axls 

1870 

Yscals-Yscals*10 

1880 

GOTO  1850 

1890 

END  IF 

1900 

Xaf-INT(Xf*Xacale) 

1910 

IF  Xs£>16383  THEN 

!  Readjust  graph  variables  to  ensure  x*axis 

1920 

Xsf-Xsf/10 

1  Xsf  does  not  exceed  16383  units 

1930 

XscaIo*X8C«I«/ 10 

' 

19*0 

GOTO  1910 

1950 

END  IF 
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1980  Ys£-IHT(Yf«Yscale) 

1970  IF  Ya£>18383  THEM  !  Readjuat  graph  variablea  to  ensure  y-axis 

1980  Yaf-^Yaf/lO  !  Xaf  doea  not  exceed  18383  units 

1990  Yacale-Yscala/lO 

2000  GOTO  1970 

2010  END  IF 

2020  Xao~INT(Xo*Xscals)  !  Flnallza  all  scaling  variables 

2030  Xsf-INT(X£*Xscala) 

2040  Yso-INT(Yo*Yscals) 

20S0  Ys£-INT(Y£*Yscala) 

2080  PRINT  ■'IR;IP1000, 1000,9300. 7000:”  I  Set  paper  size 

2070  PRINT  "SC":Xaoj",":Xa£:".":Yso:”,";Ya£:";“  t  Sat  X  &  Y  axlsas  lengths 

2080  PRINT  "PA":X8o:".":Yao:";SPljPD:" 

2090  FOR  Xp-Xso  TO  Xs£  STEF  (Xs£-Xaa)/10  !  Print  X-azls 

2100  PRINT  ”PA";Xp:",”;Yao:";XT:PU:" 

2110  PRINT  "CP-2.4.-1.3;LB”;Xp/Xseale:CHRS(3) 

2120  PRINT  ■•PA"iXp:",";Yao:~;PD:" 

2130  NEXT  Xp 

2140  PRINT  "PU:PA"  :Xao+INT(.4*(Xs£-Xao)  Yso-INT(  .078*(Ys£-Yso));  MB"  ;X_labelS;CHRS(3) 

2130  PRINT  ”PU:PA“:Xao:",":Ys£:":PDi" 

2180  FOR  Xp-Xso  TO  Xs£  STEF  (Xs£-Xso)/10 
2170  PRINT  "PA":Xp:“,":Ya£;":XT:“ 

2180  NEXT  Xp 

2190  PRINT  "PU:PA":Xao:",";Yso:";PD:" 

2200  FOR  Yp-Yao  TO  Ya£  STEP  <Ya£-Yao)/10  I  Print  Y-axls 

2210  PRINT  ••PA":Xaoi".";Yp:";YT;PU:" 

2220  PRINT  "CF-8.4,-.3;LB";Yp/Yscala;CBRS(3) 

2230  PRINT  "PA";X8o;","jYp:”;PD:“ 

2240  NEXT  Yp 

2230  PRINT  "P0:PA"iXao-IHT(.09*<Xa£-Xao)):“,"‘jYao+lHT(.373*(Ya£-Yao)):":DI0,l;LB";Y_labelS:CHRS(3) 
2260  PRINT  *PA";Xa£j“,";Taoj":PO" 

2270  FOR  Yp-Yao  TO  Ys£  STEP  (Ya£-Yso)/10 
2280  PRINT  "PA":Xa£:".*jYp!":YTj" 

2290  NEXT  Tp 

2300  PRINT  "P0:PA":Xao+IRT<.4*<Xa£-X8o)):",“;INT(.078*<YB£-Yao))+Ya£:"iDI1.0:LB";Tltle3:CHRS(3) 

2310  FOR  K-1  TO  Hua_plata  t  Plot  data  pointa 

2320  SELECT  K 

2330  CASE  1 

2340  FOR  I-l  TO  01 

2330  PRINT  "PA”:INT(Oatal(l,X)*Xacale):“.“;l»T(Dotal(I,Y)*Yscale)!":" 

2380  PRINT  "OC-3, -4. 99, 0,8, 8, 0.0. -8. -8, 0,-99;"  !  Plots  squarea  £or  graph  #1 

2370  NEXT  I 

2380  CASE  2 

2390  FOR  I-l  TO  D2 

2400  PRINT  "PA":INT(Data2(l.X)*Xacale);",";INT(Dat82(I.Y)*Yscale):"!" 

2410  PRINT  "DCO, -4, 99, -3, 4, 3. 4, 3, -4, -3, -4, -99;”!  Plots  dlanonda  £or  graph  #2 

2420  NEXT  I 

2430  CASE  3 

2440  FOR  I-l  TO  03 

2430  PRINT  "PA";INT(0ata3<I.X)*Xscale);",";IHT(Deta3(I,Y)*yscale);"; ■ 

2480  PRINT  "00-3,-4.99, 3, 8, 3, -8. -8. 0,-99;"  I  Plots  triangles  for  graph  #3 
2470  NEXT  I 

2480  END  SELECT 
2490  NEXT  K 

2300  PRINT  "P0;PA":Xs£:",":Ys£;";" 

2310  PRINTER  IS  CRT 

2320  ! -  Addltlonl  plota/End  o£  routines  - 

2330  Anothar_plot ;  I 

2340  INPUT  "Plot  another  graph?  (Yes-1  No-0)" .Replot 

2330  Plot-0 

2380  CLEAR  SCREEN 

2370  IF  Replot-1  THEN  Graph_paranieter 

2380  CLEAR  SCREEN 

2390  KEY  LABELS  ON 

2800  LOAD  "TURBoIlAB",  10 
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10  JProsram;  SCAN_TEMP 

20  !Oascrlptlon;  Raads  tharmo-couple  arnf  from  channals  0~S,  converts  to 

30  !  dagraas  F,  and  prints  to  CRT. 

40  iOavtcas:  BP3495A(708) .  RP3436A(722) 

50  ! 

60  CLEAR  SCREEM 

70  DUMP  DEVICE  IS  711 

80  DIM  T(5,1:2),T(5) 

90  INTEGER  Run 

100  DIM  Channal3(S)t201 

110  ChannaI3(0)>''Atmo8phata'‘ 

120  Channal3(l)o”Suppl7  OrlTlca” 

130  Channal3(2)'«*'Turblna  Inlat" 

140  ChannalS(3)<*''Tuzblna  Outlat" 

150  ChannalS(4}»"Conprassor  Inlat" 

180  ChannalS(S)*''Caiiiptaaaar  Outlat" 

170  ! 

180  PRINT  "Turbochargar  Lab  Tamparatura  Raadlngs." 

190  Sean:  1 - 

200  Run-Run+l 

210  PRINT 

220  PRINT  "Run  ntanbar ;  ” ;  Run 

230  PRINT  USING  “K. IIX.K, 3X,K“ ; "Location" . "Channal  Tamparatura  (F)" 

240  PRINT 

250  OUTPUT  722; "T3" 

260  FOR  C>0  TO  5  !Raadlns  tanparatura  channals  0*5 

270  OUTPUT  708  USING  "0DD";C 

280  TRIGGER  722 

290  ENTER  722;T(C) 

300  T<C.1)-C 

310  Y(C,2)~FRT(T(C)*1000)  tUsac  daflnad  function  applied 

320  IF  Y(C,2)<ABS(.l)  THEN 

330  I<C,2)-0 

340  END  IF 

350  PRINT  USING  "20A.2X.D0. IIX, 50.D" :Channal3(C) , Y(C. 1) , Y(C.2) 

360  NEXT  C 

370  CLEAR  722 

380  INPUT  "Enter:  l~Rasean  0-Qult",Rascan 
390  IF  Rascan'l  THEN  Sean 

400  LOAD  "TURBO  MENU'MO 

*10  ENDI"-—— — I—  .  "  '■  — . .  '■ 

420  lUaac  daClnad  function  to  eonvart  voltaga  readings  frea  tamparatura  probes 

430  !to  tamparatura  values  in  degrees  F. 

440  DET  FNT<V) 

450  Sl-32. 144+35. 77«V-.4518*V*2 

460  S2"33.252+34.86*V-.1855»V*2 

470  IF  Sl<100  THEN  490 

480  S1-S2 

490  RETURN  SI 

500  FNEND 
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10  ! Program:  TURBO_MENU 

20  iOaacrlptlon:  Program  providaa  Function  Key  menu  for  program  selection. 

30  CLEAR  SCREEN 

*0  OH  KEY  1  LABEL  "TURBO 1"  GOTO  Turbol 

50  ON  KEY  2  LABEL  "TURB02"  GOTO  Turbo2 

60  OH  KEY  3  LABEL  "TURB03"  GOTO  Turbo3 

70  ON  KEY  4  LABEL  "TURBO*”  GOTO  Turbo* 

60  ON  KEY  5  LABEL  "SCAN  TEMP  "  GOTO  Tamp 

90  OH  KEY  6  LABEL  "  "  GOTO  Hold 

100  ON  KEY  7  LABEL  "MAIN  MENU"  GOTO  Main 

110  ON  KEY  8  LABEL  "EXIT  MENU"  GOTO  Exit 

120  I 

130  PRINT  "Tuzbochargar  Data  Acquisition  Lab" 


1*0 

PRINT 

130 

PRINT 

"Itsra; 

Select 

Function 

160 

PRINT 

170 

PRINT 

"  TUHBOl: 

Collect,  reduce  and 

FI" 

180 

PRINT 

■■ 

store  RAW  Data" 

190 

PRINT 

200 

PRINT 

"  TURB02: 

Tabulate  RAH  Data 

F2" 

210 

PRINT 

220 

PRINT 

"  TURB03; 

Tabulate  REDUCED  Data 

F3" 

230 

PRINT 

2*0 

PRINT 

"  TURBO*: 

Plot  REDUCED  Data 

F*" 

230 

PRINT 

280 

PRINT 

"  SCAH_TEME 

':  Sean  tampaxatuca  pxobs 

F5" 

270 

PRINT 

280 

PRINT 

”  Main  Manu 

F7" 

290 

PRINT 

"  Exit  Manu 

F8" 

300  I 

310  Bold:  I 

320  GOTO  Bold 

330  Tuzbol:  I 

340  LOAD  "TURBOl" , 10 

330  7urbo2;  I 

360  LOAD  "TURBO2",10 

370  Turbo3:  ! 

380  LOAD  "TURBOS", 10 
390  Turbo* :  ! 

*00  LOAD  "TURBO*", 10 
*10  Taoip:  I 

*20  LOAD  "SCAH_IIMP" , 10 
*30  Olsexapaneias: I 
4*0  LOAD  "0I3CREP  DOC", 10 
*30  Main:  t 

*60  MASS  STORAGE  IS  "/WORKSTATIONS" 
*70  LOAD  "A0TOST",10 
*80  Exlt;CLEAR  SCREEN 
*90  END 
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10  ITltU;  A_4431T 

20  tAuthoc:  R.P.  ShiMVS  <R»v.  12/3/89) 

30  iUpdatad;  R.A.  Wandland  (12/12/91) 

40  I  Program:  Farformanca  caleulationa  for  burblna  for  varying 

SO  I  Alphal . 

60  ! 

70  CLEAR  S(31EEH 

80  DUMP  DEVICE  IS  711 

90  KEY  LABELS  OFF 

100  DIM  A(7,13),B(7,13),C(7,13).R<13).S(13).Alphal(15) 

110  0E6  !  All  anglaa  in  dagraas 

120  IHPUT  "Print  raaulta  to  CRT  or  Prlntar?  (CRT-1,  Printar-0):  ".Crt 
130  IF  Crt-1  THEN  130 

140  PRINTER  IS  711 

ISO  I" - Input  data - 

160  R9-.08 

170  P9-1 

180  Q9-317.8 

190  PO-2 

200  P2-1 

210  TO-380 

220  UO-800 

230  Hl-14 

240  !  Al-73  !  Program  modifiad  for  Alp)ial  Itaratlon 

230  Gl-1.4 

280  GO-32.174 

270  K»*.9a 

280  HO-33000 

290  INPUT  "Entar  R*:  ",R0 

300  INPUT  "Entar  Alphal  (dag);  min,  max,  a^ap  also  ",L1,L2,L3 

310  I——  Caleulata  naadad  quantltlaa  ————————————— — - 

320  VO-109.82*SqRT(T0) 

330  X3-U0/V0 

340  P4-P2/P0 

330  R8-R0*(P0/P9)/(T0/(]9) 

380  I——  Caleulata  parformanca - - - 

370  I-l 

380  L4-0 

390  FOR  Al-Ll  TO  L2  STEP  L3 

400  GOSUB  Non  dlmanalon 

410  T8-T9-T0  “ 

420  H0-(V0«V0/(2»G0))»T9/330 

430  P1-P3-P0 

440  T1-S1«T0 

430  T2-S2«T0 

480  V1-X1*V0 

470  V2-X2*V0 

480  W1-X3-V0 

490  W2-X8-V0 

300  WO-Bl/HO 

310  X9-X1-C0S(A1) 

320  A9-(H0*144/(R8«V0))/(X9«(1-X9‘2)'(1/(1-G1))*K9) 

330  R7-(360«U0)/(PI*H0) 

340  H9-A9/(2«PI*R7) 

330  PRINT  '•R«-";RO;''RM-":R7;"H-":H9:  'WO-".WO 

380  I - Stora  data  In  array - 

370  R(I)-R0 

380  S(I)-R1 

390  Alphal(I)-Al 

600  A(1,I)-N1 

610  A(2,I)-N2 

620  A(3,I)-R0 

830  A(4.1)-T8 

840  A(3,1)-P1 

630  A(6,I)-T1 
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680  A(7,I)-T2 

670 

680  B(2,I)-W1 

690  B(3,I)>V2 

700  B(4,t)-W2 

710  B(3,I)-B1 

720  B(8,I)— A2 

730  B<7,I)— B2 

7*0  C(1.I)-Z1 

750  C(2,I)-Z2 

760  C(3,I)-M3 

770  C(*,I)-«* 

780  C(3,I)^ 

790  cce.D-tM 
800  C(7,I)-0 

810  I-I+l 
820  L4-L*-*-! 

830  NEXT  A1 

8*0  I - Print  data - - 

850  PRINT  USING  “/ ,K, 50. 20.K, 5D. 2D,K, 8D,K" ; "PT0-" ,PO, "  P2-",?2,"  ATO.  TT0-",T0.'  DEG.  R" 

880  PRINT  USING  "/ ,K, 60. K. "WHEEL  VEL.-“,U0."  FT/SEC." 

870  FOR  I-l  TO  L* 

880  PRINT  USING  "K.  50" ;  "ALPHAl-" , AlphaKI ) 

890  NEXT  I 

900  PRINT  USING  "/ .K.K.K.K.K.K.K.K, K" ; "  ETA  T-S","  ETA  T-I","  HP/LB  DELTW  ' , "  PI  " , " 

910  FOR  I-l  TO  L* 

920  PRINT  USING  "*0. 30, *0. 30. 30 . *0,30 . *0, 30. *0,50 . 20, 50 .20, 50 . 20, 30. *0" ; A( 1 . I ) . A(2 , I ) . A(3 , I ) , A( 

930  NEXT  I 

9*0  PRINT  USING  "/,K,E,X.E,K,K,E,K.K":"  71  HI  72  W2  BETAl 

950  FOR  I-l  TO  L* 

960  PRINT  USING  "80.0, 60.0, 60.0, 60.0, 60.0,60.0,60.0, 50. 20, 30. *0" ;B( 1, I) ,B(2, I) ,B(3 , I) ,B(* , I) ,B( 

970  NEXT  I 

980  PRINT  USING  "/,K, K.K.K.K.K.K.K.K";"  ZETA  S"."  ZETAR","  MICHIT","  M2CRII" . "  MRICRIT" . " 

990  FOR  I-l  TO  LA 

1000  PRINT  USING  "30. *0.30.*0, 30.  *0, 30. *0. 30. *0,30.  *0, 8X, 50. 20. 30 . *0"  ;C(l ,  1)  ,C(2. 1)  .C(3 . 1 )  ,C( *-.  I 
1010  NEXT  I 
1020  GOTO  1*10 

1030  I——  Subroutina  for  non-dlnanslon  parformanca  calculations - 

10*0  Non_dlnanslon;  t 

1050  G2-(GI-1)/G1 

1060  G3-SQRT((G1+1)/(G1-1)) 

1070  T*-P**G2 

1080  T3-T*+R0*(l-T*) 

1090  P3-T3*(l/G2) 

1100  T1-1-T3 

1110  Ml-<2/<01-l))*(Yl/<l-Tl)) 

1320  Z1-.1«M1 

1130  S1-T3+Z1**! 

11*0  Xl-SQRT(l-Sl) 

1150  X*-X1«C0S(A1) 

1180  B1-ATN((X1*SIN(A1)-X3)/X*) 

1170  X5-X*/C0S(B1) 

1160  T7-S1+X5"2 

1190  T5-S1»(P*/P3)"G2 

1200  Y8-T7-T5 

1210  M2-(2/(Gl-l) )*Y8/T5 

1220  Z2-.2«M2 

1230  S2-T3+Z2*Y8 

12*0  X8-SQRT(T7-S2J 

1250  B2-X4/X0 

1260  B2-ATN(SQRT(1-B2'2)/B2) 

1270  A2-ATN((X8»S1H(B2)-X3)/X*) 

1280  X2-X*/COS(A2) 

1290  S3-S2+X2'2 

1300  T9-1-S3 
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1310  Hl-T9/(1-T*) 

1320  P5-PA*<S3/S2)*(1/G2) 

1330  I6-P5*G2 

13*0  H2-T9/(l-T8) 

13S0  R1-(S1'S2)/(1-S3) 

1360  M3-X1»G3 

1370  M*-X2«G3*SQRT(1/S3) 

1380  M5-X5*G3*SQRT(1/T7) 

1390  M6-X6*G3*SQRT(1/T7) 

1*00  RETURR 

1*10  OISP  "Fma  F2  to  axit,  pzaaa  F3  for  anothar  run" 
1*20  FRIHTZR  IS  CRT 
1*30  PAUSE 

1**0  LOAD  "DESIGN  MENU".  10 
1*30  END 
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10  ITltl#:  R_A431T 

20  iAuthor:  R.P.  Shreav*  (R»v.  12/3/89) 

30  lUpdatad:  R.A.  Wandland  (11/30/91) 

*0  tPxogcaa:  Parfoxnanea  calculations  fox  tuxblna  for  varying 
3®  !  thaoratlcal  dagxaa  of  reaction. 

60  ! 

70  CLEAR  SCREEN 
80  DUMP  DEVICE  IS  711 
90  KEY  LABELS  OFF 

100  DIM  A<7.1S).B(7.13),C(7.13),R(1S).S<15) 

110  INPUT  "Print  laaults  to  CRT  ox  Printer?  <CRT-1.  Printar-0)-  "  Crt 
120  IF  Cxt-1  THEN  lao 
130  PRINTER  IS  711 

1*0  I - Input  data - 

130  R9-.08 

180  P9-1 

170  Q9-317.8 

180  PO-2 
190  P2-1 

200  T0>360 

210  uo-aoo 

220  Bl-1* 

230  Al-73 

2*0  01-1.* 

230  00-32.17* 

260  K»-.g8 

270  NO-33000 

280  I-— —  Calculate  naadad  quantltlaa 

290  V0-100.82*S(]RT(TO) 

300  )C3-U0/V0 

310  P*-P2/P0 

320  RN-R9*(P0/P9)/(T0/Q9) 

330  DEO 

3*0  I— —  Calculate  patfezaMoiea  — - — — — - - — _ 

330  INPUT  'xitax  R*:  ain,  smx,  atap  al*a",Ll.L2  L3 

360  I-l 
370  L*-0 

380  FOR  RO-Ll  TO  L2  STEP  L3 
390  (jOSUB  Non_dlnianslon 
*00  T8-T9*T0  ~ 

*10  HO-(VO*VO/<2*GO))*T9/330 

*20  P1-P3*P0 

*30  T1-S1*T0 

**0  T2-S2-T0 

*30  Vl-Xl-VO 

*60  V2-X2-V0 

*70  W1-X3»V0 

*80  H2-X6*V0 

*90  WO-Hl/HO 

500  X9-X1*C0S(A1) 

510  A9-(W0*1**/(R8«V0))/(X9»<1-X9-2)*(1/(1-G1))*K9) 

320  R7-<360«U0)/(PI*N0) 

330  H9-A9/(2«PI*R7) 

5*0  PRINT  "R«-".R0;")tt^",R7,  -H-'-,H9,  -W0-";W0 

330  I - Store  data  In  array - 

380  R(I)-R0 

370  S(I)-R1 

380  A<1.I)-H1 

390  A(2.I)-N2 

800  A(3.I)-H0 

810  A(*.I)-T8 

820  A(3,I)-P1 

830  A(8,I)-T1 

6*0  A(7.I)-T2 

630  B(1.I)-V1 
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660  B(2.I)-W1 

670  B(3.I)-V2 

680  B(4,l)-W2 

690  B(3.I)-B1 

700  B(6,I)— A2 

710  B(7,I)— B2 

720  C(1,I)-21 

730  C(2,I)-Z2 

7*0  C<3.1)^3 

730  C(4,I)^ 

760  C(3,l)-M3 

770  C(8.I)-t« 

780  C(7.I)-0 

790  I-I+l 
800  L*-L*>1 

810  NEXT  RO 

820  t - Print  data - 

830  PRINT  USING  •'/./././ ,K.  30 . 2D,K,  30 . 2D.K.  6D,K"  ;  “PTO-"  ,  PO .  “  P2-",P2,"  ATO.  TTO-",TO.' 

8*0  PRINT  USING  ”/ ,K, 60 .K, 30,K“  i  "WHEEL  VEL.-“.00,"  FT/SEC.  ALPHA1-"  .  A1 ,  "  DEG.  " 

830  PRINT  USING  "/ , / .K.K.K.K,K,K,K,K,K"; "  ETA  T-S”,"  ETA  T-T"."  HP/LB  DELIW  " , "  PI  "," 

860  FOR  i-1  TO  L* 

670  PRINT  USING  "40. 30. *0. 30. 30. *0, 30. *0,30. *0,30 . 20. SO. 20. 30 . 20, 30 . 40" ; A( 1 , I ) . A(2 , I > . A(3 , I ) . A(* 
880  NEXT  I 

890  PRINT  USING  "/ . / .K.K.K.K.K.K.K.K.K” ; "  VI  W1  "."  V2  "."  W2  "."  BETAl  ". 

900  FOR  !•!  TO  L* 

910  PRINT  USING  "60.0. 80.0. 60.0. 60.0,60.0,60.0,60 .0, SO. 20, 30 . *0" ; B( 1 . I) .6(2 . I ). B(3 . I ). B(* , I ). B( 3 
920  NEXT  I 

930  PRINT  USING  "/,/, K.K.K.K.K.K.K.K.K":'  ZETA  S",'  ZETAR","  MiraiT","  M2C31IT" . "  MRICSIIT" . " 
9*0  PQR  I~1  TO  L* 

930  PRINT  USING  "30. *0,30. *D,3D.*0,30. *0,30. *D,3D.*D,8X, 30.20. 30. *0” ;C(1. I) .0(2.1) .0(3. I> .C(* . I) 
960  NEXT  I 

970  GOTO  1360 

960  I——  Sufaroutla*  for  noo-dloianalon  parfoiaonca  ealeulattons  — - — 

990  Non  dlflMoalon:  1 

1000  G2>(G1-1)/61 

1010  03-SQRT( (61+1)/ (61-1)) 

1020  T*-P**G2 

1030  T3-T*+R0*(l-T*) 

10*0  P3-T3*(l/G2) 

1030  n-l-I3 

1060  m-(2/(Gl-l))»(Tl/(l-yi)) 

1070  zi-.imi 
1080  S1-T3+Z1*Y1 

1090  Xl>SqRT(l-Sl) 

1100  X*>X1*C03(A1) 

1110  B1-ATN((X1*3IN(A1)-X3)/X*) 

1120  X3-X*/(X)S(B1) 

1130  T7-S1+X3*2 

11*0  T3-S1«(P*/P3)*G2 

1130  y6-I7-T3 

1160  M2-(2/(Gl-l))*y6/T3 

1170  Z2-.2»M2 

1180  S2-T3+Z2»y8 

1190  X8-SQRT(T7-S2) 

1200  B2-X4/X6 

1210  B2-ATN(SQRT(1-B2*2)/B2) 

1220  A2-ATN((X8*SIN(B2)-X3)/X*) 

1230  X2-X*/(X)S(A2) 

12*0  33-S2+X2*2 

1230  T9-1-S3 

1280  Hl-T9/(1-T*) 

1270  P3-P*»(S3/S2)*(1/G2) 

1280  T8-P3*G2 

1290  N2-T9/(l-T8) 

1300  R1-(S1-S2)/(1-S3) 

Figure  DIO  (cont)  TPL  Program:  R_4431T 
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1310  M3-X1*G3 

1320  M*-X2»G3*SC)RT(1/S3) 

1330  M3-X3*G3»SQRT(1/T7) 

13*0  M6-X6*G3»S0RT(1/T7) 

1330  HETUSH 

1380  DISP  "Prass  F2  to  exit,  press  F3  for  another  run" 
1370  PAUSE 

1380  LOAD  "0ESIGI»_MEm;" .  10 
1390  END 


Figure  DIO  (cont)  TPL  Program: 
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10  ITltl»:  tUHB3 

20  iAuthor:  R.  P.  Shraav*  (09/01/88) 

30  tUpdatad:  R.  Wandland,  LCDR,  USH  (12/12/91) 

*0  IPTogram;  Calculata  and  draw  fcurblna  blada  prof lias 
SO  ! 

60  DEG 

70  DUMP  DEVICE  IS  711 
80  CLEAR  SCREEN 
90  KEY  LABELS  OF? 

100  I - Inpub  Graph  paraoatars - 

110  INPUT  "Plotting  STATta  or  ROTOR?  (stator^O,  rotor-1):  "  Typa 
120  IF  Typ«"l  then 
130  TypaS-"ROT(3R" 

140  ELSE 

130  Typa$-"STAT(a" 

160  END  IF 

170  PRINT  "Input  axis  coordlnataa  for  "(TypaS;"  blada  profila  plot-" 
180  IF  Iypa-0  THEN 

190  INPUT  "Eatar  Xa  (nominal  -1.0):  “,Xa 
200  INPUT  "Eatar  Xb  (nominal  3.0):  ",){b 
210  Typa-1 

220  ELSE 

230  INPUT  "Entar  Xa  (nominal  3.0);  ",Xa 
240  INPUT  "Entar  Xb  (noaiinal  -1.0):  ",Xb 
230  Typa— 1 

260  END  IF 

270  Ya— .2 

280  Yb-AB3(Xa-Xb)/RATI04-Ya 
200  PRINT 

300  PRINT  "Axis  coordlnataa:" 

310  PRINT  -  Xa  -  ".Xa 

320  PRINT  "  Xb  -  ",Xb 

330  PRINT  "  Ya  -  ",Ya 

340  PRINT  "  Yb  -  ",Yb 

330  PRINT 

380  —  Input  Data - - - 

370  PRINT  "Entar  all  anglaa  In  dagraas." 

380  INPUT  "Entar  T.E.  wadga  angla  (apstlon):  ",E1 
390  INPUT  "Entar  T.E.  radius  /spacing:  ".R8 

400  INPUT  "Entar  output  rslatlva  flow  angla  (alpha!  or  bata2):  ",B3 
410  B3“B3*Typa 

420  I - EC).  26  — . - . . . . . 

430  A3-COS<B3)-8*R8*(1-B3/90) 

440  A0^»S<B3)-8»R8*(l-ATN(S0R(l-A3*2)/A3)/90) 

430  IF  ABS(A0-A3)<. 00001  THEN  480 
480  A3-A0 

470  CSTO  440 

480  INPUT  "Entar  Inlat  ral.  flow  angla(alphal  or  batal)-  ".BZ 
490  B2— B2*TTpa 

300  INPUT  "Entar  L.E.  radius  /spacing  (la/S):  " ,R9 

310  INPUT  "Entar  L.E.  wadga  angla  (dalta);  ".Dl 

320  INPUT  "Entar  axial  chord/spacing;  ",B0 

330  ZO-2*(TAN<B3)-HAN(B2))»COS(B3)*2/BO 

340  SO-1 

330  B1-B2-10 

360  IF  Dl>20  THEN  380 

370  B1-B2-D1/2 

380  Gl-Bl-t-Dl 

390  A9-(A0-t-2*R8)/S0 

600  E2-E1/2 

610  A8-A9/(1+TAN(E2)*2) 

820  A8-A8-S()R(A8*2-(A9'2-TAN(E2)*Z)/(1+TAN(E2)*2)) 

830  A1-ATH(A8/SC3R(1-A8*2)) 

840  Rl-(BO-R8*(l-K:OS(Al+El))-R9»(l+SIN(Bl)))/(COS(Al-fEl)+SIN(Bl)) 

830  R2-SO*COS(Al-t-El)/SIN(El)-fR8 

Figure  Dll  TPL  Program:  TURB3 
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880  E0-1/(1+SIH(G1-A1-E1)) 

870  FO-(SIH(G1-A1-E1)+COS(D1))/(1+SIN<G1-A1-E1)) 

880  GO-(2*(COS(Dl/2))*2)/<l+SIH(Gl-Al-El)) 

890  R3-AO*EO*<COS(G1)*(SIM(A1+E1)-SO/AO)-SIM(G1)»COS{A1+E1))+R1*FO+R9*GO 

700  I - PRINT  DATA - - 


710 

PRINTER  IS 

711 

720 

PRINT 

730 

PRINT 

•• 

Turbina  Blada  Proflla'* 

740 

PRINT 

•* 

730 

PRINT 

780 

PRINT 

"For 

Axial  Chord 

-  ":B0 

770 

PRINT 

•a 

Blada  Spacing 

-  ":S0 

780 

PRINT 

M 

Exit  Width 

-  ":A0 

790 

PRINT 

ft 

L.E.  Radlua 

-  ":R9 

800 

PRINT 

T.E.  Radlua 

-  ":Ra 

810 

PRINT 

L.E.  Wadga  Ang 

la-  ";D1 

820 

PRINT 

•* 

T.E.  Wadga  Angla>  “;E1 

830 

PRINT 

840 

PRINT 

"Daalgn  Ral.  Inlat  Flow  Angla  •  ";*B2*Typa 

830 

PRINT 

"Daalgn  Ral.  Outlat 

riow  Angla  -  ~;B3*Typa 

880 

PRINT 

"Zwalfal  Coaffteiant 

-  ”;Z0 

870 

PRINT 

880 

PRINT 

BOO 

900 

PRINT 

PRINT 

"Caleulatad  Blada  Paramatara:" 

910  PRINT  -  Alpha 

920  PRINT  "  Bata 

930  PRINT  "  Oaana 

940  PRINT 

980  PRINT  *  R1 

960  PRINT  ■*  R2 

970  PRINT  <*  R3 

990  PRINT 

990  PRINT 

1000  PRINTER  IS  OIT 
1010  OISP  "Praaa  F2  to  vla«  plot,  F3  for  naw  inputa  and  raealeulata  valuas." 
1020  PAUSE 
1030  CLEAR  SCREEN 

1040  !- — "  Caleulata  and  Plot  data  to  CRT  scraan - 

1030  I  Graph  paramatara: 

1060  X_ranga~Xb-Xa 

1070  Y~ran8a-Yb-ya 

1080  Dx-10 

1090  Dy-lO 

1100  GIHIT 

1110  PEN  4 

1120  LORG  8 

1130  MOVE  100«RATIO/2.100 

1140  LABEL  TypaS;”  Blada  Profllas" 

1130  CSIZE  3.3 

1160  MOVE  100*RATIO/2,0 

1170  LORG  4 

1180  LABEL  "Marldlan  Plana" 

1190  LDIR  90 
1200  LORG  6 
1210  MOVE  0,30 
1220  LABEL  "Chord" 

1230  LOIR  0 
1240  LORG  2 

1230  VIEWPORT  10 , 93»RATIO. 10 , 93 
1280  FRAME 

1270  WINDGH  Xa.Xb.Ya.Tb 
1280  AXES  X_ranga/Dx, Y_ranga/Dy,Xa, Ya 
1290  AXES  X  range/Dx,Y_ranga/0y,Xb, Yb 
1300  CLIP  OFF 

Figure  Dll  (cont)  TPL  Program:  TURB3 


A1 

B1 

61 


R1 

R2 

R3 


178 


1310  CSIZE  3.0, .* 

1320  LORG  6 

1330  FOR  I-Xa  TO  Xb  STEP  X_rans«/Dy 
13*0  MOVE  I,Ta-.01«Y_tan8a 
1350  LABEL  USING  ■•#,MD.DD"  :  I 
1360  NEXT  I 
1370  LORG  8 

1380  FOR  I-Ta  TO  Yb  STEP  Y_range/Dy 
1390  MOVE  Xa-.01*X_ran8*,I~ 

1*00  LABEL  USING  ''#,MD.DD‘';I 
1*10  NEXT  I 
1*20  Kl-0 

1*30  ! - Txalllns  Edga - 

1**0  T2— A1 

1*50  T3-180-A1-E1 

1*60  T*-(T3-T2)/20 

1*70  FOR  T1-T2  TO  T3  STEP  T* 

1*80  X— R8*SIH(T1) 

1*90  Y-R8*(1-C0S(T1)) 

1300  PLOT  x,y 
1310  NEXT  T1 

1320  ! - Preaauxa  Sida - 

1330  XI— (R1+R8)*SIN(A1+E1) 

13*0  Y1-R8+(R1+R8)*C0S<A1+E1) 

1330  T2— 90+Al+El 

1360  T3-B1 

1370  T*-(T3-T2)/20 

1380  FOR  T1-T2  TO  T3  STEP  T* 

1390  X-X1+R1*C0S(T1) 

1800  T-ri+Rl^SINITl) 

1810  PLOT  X.T 
1820  NEXT  T1 

1830  I——  Tip  Radius  — — 

1840  X4-Xl+<Rl+R97»COS(Bl) 

1830  T*-Y1+<R1+R9)*S1N(B1) 

I860  T2— B1 

1870  T3-180-G1 

1880  T*-(T3-T2)/20 

1890  FOR  T1-T2  TO  T3  STEP  T* 

1700  X-X*-R9*C0S<T1) 

1710  Y-Y*+R9«SIH<T11 

1720  PLOT  X.y 
1730  NEXT  T1 
1740  X6-X 
1730  Ye-Y 
1780  PBHUP 

1770  I' -  Suction  Side  - 

1780  PEN  * 

1790  X2— <R2-R8)*SIH<A1) 

1800  Y2-R8+(R2-R8)»C0S<A1) 

1810  T2-0 

1820  T3-E1 

1830  T*-(T3-T2)/20 

18*0  FOR  T1-T2  TO  T3  STEP  T* 

1850  X-X2+R2*SIN(T1+A1) 

1860  Y-Y2-R2*C0S(T1+A1) 

1870  PLOT  X.Y 
1880  NEXT  II 

1890  I - Suction  Slda  Radius  R3 - 

1900  X3-X2+R2»SIN<E1+A1) 

1910  Y3-Y2-R2«C0S<E1+Al) 

1920  X3-X3-H3*SIN(E1>A1) 

1930  Y3“Y5+R3»C0S(E1+A1) 

19*0  T2— <90-Al-El) 

1950  T3-G1 

Figure  Dll  (cont)  TPL  Program:  TURB3 
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I960 

T4-(T3-T2)/20 

1970 

FOR  T1-T2  TO  T3  STEP  T4 

1980 

X-X3+R3*C0S(T1) 

1990 

Y-Y3+R3*SIH(T1) 

2000 

IF  Y<Y6  THEN  2060 

2010 

PEHUP 

2020 

PRINT 

2030 

PRINT  "Thas*  valuas  glva  discontinuous 

2040 

PRINT 

2030 

GOTO  370 

2060 

PLOT  X.Y 

2070 

NEXT  T1 

2060 

PLOT  X8.Y8 

2090 

FENUP 

2100 

IF  Kl-1  THEN  2140 

2110 

Kl-1 

2120 

WINDOW  Xa-S0,Xb-S0,Ya,Yb 

2130 

GOTO  1430 

2140 

saag«  - 

2130 

WINDOW  Xa.Xb.Ya.Yb 

2163 

X7-X1+S0 

2170 

Y7-Y1 

2160 

T2— (90-Al-El) 

2190 

T3-B1 

2200 

T4-(T3-T2)/20 

2210 

PEN  7 

2220 

LINE  TYPE  3 

2230 

FOR  T1-T2  TO  T3  STEP  T4»2 

2240 

X-X7+<R1-A0 )*COS<Tl ) 

2230 

T-y7+(lU-A0)*SIN(Tl) 

2260 

PLOT  X.Y 

2270 

NEXT  11 

2260 

DOHP  GRAPHICS 

2290 

OISP  "FE  to  eontlnua  " 

2300 

PAUSE 

2310 

CLEAR  SCREEN 

2320 

INPUT  "Caleulata  blada  nuoOiat? 

(l-Yaa. 

2330 

IF  R0«0  THEN  2470 

2340 

PRINTER  IS  711 

2330 

INPUT  "Entas  axial  chord  (In.); 

2360 

INPUT  "Entas  aaan  radius  (In.); 

".R3 

2370 

S-h/BO 

2360 

Z1-2*PI*R3/S 

2390 

B"B0*S 

2400 

A>A0*S 

2410 

PRINT 

2420 

PRINT  "Axial  chord  -  ";6:" 

In.  ** 

2430 

PRINT  "Blada  spaes  -  ";S;" 

In,  ** 

2440 

PRINT  "Throat  width  ":A;" 

In." 

2430 

PRINT  "Nuabar  of  bladas  •  ";Z1 

2460 

PRINTER  IS  CRT 

2470 

DISP  "F2  to  sxlt,  F3  for  anothsr  run" 

2480 

PAUSE 

2490 

LOAD  "DESIGN  MENU” ,  10 

2300 

END 

•,H0 
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10  t  Title:  TURB4 

20  !  Author:  R.  P.  Shteeve  (09/01/88) 

Updated:  R.  A.  Wendland.  LCDR.  USN.  (12/17/91) 

Calculate  blade  height  and  loaaesa  for  given  mean 
line  conditions  for  a  single  stage  axial  turbine 


70 

80 

90 

100 

110 

120 

DIM  0(3.17) 

CLEAR  S(mEEN 

PRIHTER  IS  CRT 

DUMP  DEVICE  IS  711 

KEY  LABELS  OFF 

130 

PRIMT  "Input  data  from  program  4431T:" 

140 

IHPOT  "Enter  PtO  (pala):  ".PO 

ISO 

IHPUT  "Enter  TtO  (dag  R):  ",T0 

160 

IHPUT  "Enter  delta  Tw  (DELTW  deg  R):  ".JO 

170 

IHPUT  "Enter  w  dot  (lbs /sac):  ",W0 

180 

190 

R4-33.393 

200 

G9-1.4 

210 

C9-.24 

220 

J9-778 

230 

G8-32.174 

240 

230 

DEG 

260 

IHPUT  "Enter  Alpha  a  (dag):  ",L3 

270 

IHPUT  "Enter  delta  alpha  (deg):  ",L4 

280 

IHPUT  "Enter  Mlcr:  ".Ml 

2S0 

IHPUT  "Enter  Bata  a  (dag):  ",B3 

300 

IHPUT  "Enter  delta  beta  (dag):  ",B4 

310 

IHPUT  "Enter  M'erl;  ",M3 

320 

IHPUT  "Enter  M'erS:  ",M4 

330 

340 

CLEAR  SCREEH 

3S0 

PRIRT  "Input  STATOR  blade  data  from  TUBBS :" 

360 

IHPUT  "Enter  number  of  blades  (a):  ",21 

370 

IHPUT  "Enter  throet  width  (a):  ",A 

380 

IHPUT  "Enter  axial  chord  (b):  ",B 

390 

IHPUT  "Enter  blade  spacing  (S):  ".S 

400 

IHPITT  '*Ent«r  bl«d«  chord  (e);  '’,C 

410 

IHPUT  "Enter  trailing  edge  thickness  (ts):  ",T7 

420 

IHPUT  "Enter  maximum  blade  thickness  (tmax):  ",T8 

430 

IHPUT  "Enter  tip  clearance  (delta  t):  ",T9 

440 

450 

K-1 

460 

CLEAR  SCREEH 

470 

IHPUT  "Enter  STATOR  profile  loaa  (fig  13  (ref:  1174VA1)): 

",S1 

480 

S»-2*S1 

490 

HO-1 

SOO 

X8^1"2«(G9-1)/(G9+1) 

SIO 

X0-X8/(l-S9) 

S20 

R0-P0*144/(R4*T0) 

330 

VO-SQR ( 2"C9«T0 "GB* J9 ) 

340 

P3-(1-X9)*(G9/(G9-1)) 

330 

T3-1-X8 

360 

Ti-T3»T0 

370 

P1-P3*P0 

380 

H1-R0*P5/T3 

390 

!—  Re  into  stator 

800 

X8-X8*((X)S(L3)/COS(L3-L4))*2 

610 

T-1-X6 

820 

P-T*(G9/(G9-1)) 

830 

H-R0«P/T 

840 

J1-T*T0 

630 

M8-1. 153E-5».06333*SQR{Jl)/(ig8. 72/Ji+l) 

' 

Figure  D12  TPL  Program:  TURB4 
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660  R9-SQR(X6)*V0*R»C/(M8«12) 

870  08-R0»V0*S(JR(X9)»(l-X9)*(l/(G9-l)) 

680  D8-L« 

690  D7-L3 

700  (MQR((2/(G9-1))*X8/(1-X8)) 

710  PRIHT 
720  PRINT 

730  PRINT  "STATOR  Blad»  Analysis:" 

7*0  PRINT - - 

750  PRINT 

760  OOSUB  Blading.loss 

770  IF  AB3(S8-S6)<.002  THEN  8*0 

780  PRINT  "Abova  xaaulta  aza  tot  Intaratlon  ";H0 

790  S9-S6 

800  NO-NO-l-l 

810  GOTO  310 

820  PRINT 

830  PRINT 

8*0  PRINT  "  Blada  halght  -  ":H9:“  in  " 

830  PRINT  "  2xit  pzaaa.  •  ";P1;"  pala" 

860  PRINT  "  Exit  tamp.  -  ":T1;"  dag  R" 

870  PRINT 

880  PRINT 

890  PRINT 

900  0(K,16)-P1 

910  0(K,17)-T1 

920  DISP  "F2  to  eontlnua'' 

930  PAUSE 

9*0  f— — -  Rotor  Blade  Data  — — — — — — — — - — - 

930  K>2 

960  PRINT  'Input  ROTOR  blada  data  fzoa  TURB3:" 

970  INFOT  "Catar  ntabar  o«  bladaa  (a):  ',21 

980  INPUT  "Bataz  throat  width  (a):  '.A 

990  INPUT  "Entaz  axial  chord  (b):  '.B 

1000  INPUT  "Eataz  blada  apaeing  (S):  ',3 

1010  INPUT  "Entaz  blada  chord  (e);  ",C 

1020  INPUT  "Enter  trailing  edge  tl :  ^nats  (ts):  ",T7 

1030  INPUT  "Entaz  suucIbiub  blada  thlcknasa  (tmax):  ",T8 

10*0  INPUT  "Enter  tip  clearance  (delta  t):  ",T9 

1030  INPUT  "Enter  ROTOR  proTlla  loss  (tig  IS.  ra«:  117*VA1):  ",S1 

1080  39-3*31 

1070  NO-1 

1080  07-(G9-l)/(G9+l) 

1090  T8-M*‘2*07 

1100  T^TS/Cl-SO) 

1110  T*-{1-07*«1*2)/<1-G7*M3‘2) 

1120  P*-(T*/T3)“(G9/(G0-1)) 

1130  B3-P**P3*R0/T* 

11*0  H3-V0*SQR(T*) 

1130  P6-(1-Y9)*<G9/(G9-1)) 

1160  T6-l-y8 

1170  P2-P8*P**P1 

1180  T2-T8*T**T0 

1190  I - Ra  into  ROTOR 

1200  M8-1 . 133E- 3* .  06333*SQR(T1 )  /  ( 198 . 72/Tl-t-l ) 

1210  Y7-«3‘2*G7 

1220  R9-S0R(Y7)*W3*R1*C/<M8*12) 

1230  (3e-R3*W3*S0R(Y9)*<l-Y9)*(l/(G0-l)) 

12*0  D8-B* 

1230  D7-B3 

1260  (►SQR((T*/T3-1)*2/(G9-1)) 

1270  PRINT 
1280  PRINT 

1290  PRINT  "ROTOR  Blade  Analysis:" 

1300  PRINT  " . . . . " 

Figure  D12  (cont)  TPL  Program:  TURB4 
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1310  FRIHT 

1320  GOSUB  Blading  loaa 

1330  IF  ABS(S9-S8)<.002  THEM  1380 

1340  PRIHT  "Abova  raaults  ara  Itaratlon  '';N0 

1330  SS-S6 

1360  NO-NO-f'l 

1370  GOTO  1100 

1380  FRIHT 

1300  FRIHT 

1400  FRIHT  '*  Blada  halght  -  In.-* 

1410  FRIHT  **  Exit  pxaaa.  •  '*;P2;''  pala" 

1420  FRIHT  *  Exit  tcaip.  -  '■;T2;'’  dag  R" 

1430  FRIHT 

1440  FRIHT 

1430  FRIHT 

1460  0(X.16)-P2 

1470  0(K,17)-T2 

1480  DISP  ”F2  to  eontinua" 

1490  PAUSE 

1300  I - Caleulata  Sbaga  Parfozmanea - 

1310  X-3 
1320  P8-P0/P2 

1330  P9-P2*((TO-J0)/T2)“<G9/(G9-1)) 

1340  PO-FO/PS 

1330  E6^0*(l-(l/P8)*((00-l)/00)) 

1360  E6-J0/E6 

1370  E9-T0*(l-(1/P9)*((00-1)/O0)) 

1380  E9-J0/E9 

1390  FRIHT 

1600  FRIHT  'Sbaga  PaxfoxMBoa;* 

1610  FRIHT  " - - - - 

1620  FRIHT 

1630  FRIHT  '  Praaraxa  Ratio  (T-S)  -  ";P6:'  Smelanar  (T-S)  -  ';E8 

1840  nun  '  Pcaaattxa  Ratio  (T-T)  -  ';P9:'  ECCielaaeT  (T-T)  •  ';E9 

1630  FRm 

1660  FRIHT 

1870  0(K,1}-F6 

1680  0<K,2)-E8 

1890  0<K,3)>P9 

1700  0(K,4)>E9 

1710  I — ™  Ftlab  Raauiba  — — — - - - - - - — - 

1720  FRIHT  'Data  bo  bo  prlnbad  on  FrlnbaE.' 

1730  FRIHT  Enauxo  papox  la  catxaebLy  sab,  pxass  F2  bo  conblnuo.” 

1740  PAUSE 

1730  FRIHTER  IS  711 

1760  FRIHT 

1770  FRIHT 

1780  FRIHT  TAB(27);'Slngla  Sbaga  Axial  Turbina  Oaslgn” 

1790  FRIHT  TAB<27):" - - - ” 

1800  FRIHT 
1810  FRIHT 

1820  FRIHT  TAB(41);"Sbabax";TAB(81); "Rotor" 

1830  FRIHT  TAB(41):" - "jTAB<81): - " 

1840  FRIHT 

1830  PRIHT  USIHG  "13X,K, IIX, 3D. 13X. 30" ; "Ho .  of  Bladao" ;0( 1 , 8) ; 0(2 . 8 ) 

1860  FRIHT  USIHG  "13X,K";" . 

1870  FRIHT 
1880  FRIHT 

1890  FRIHT  TAB(  16) ;  "Blada  goonobrjr  (Inchaa)" 

1900  FRIHT  . . . 

1910  FRIHT 

1920  Formabl;  IMAGE  13X,K,SX.D.30. 14X.0.3D 

1930  FRIHT  USIHG  Formabl; "Blada  Haight  " .0(1.7) ,0(2. 7) 

1940  PRIHT  USIHG  Formabl ;  "Exit  Width  ".0(1. 9) .0(2. 3) 

1930  FRIHT  USIHG  Formabl; "Axial  (Diord  ".0(1. 10) ,0(2. 10 ) 


Figure  D12  (cont)  TPL  Program;  TURB4 
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1960  PRINT  USING  Format! ; "Spacing  " .0( 1. 11) ,0(2 . 11 ) 

1970  PRINT  USING  Formatl.-  '  Cajord  ",0(1, 12)  ,0(2, 12) 

1960  PRINT  USING  Formatl; "T.E.  Thlcknaaa  " ,0(1, 13) ,0(2, 13) 

1990  PRINT  USING  Foznatl ; "Max .  Thlcknaaa  ", 0(1, 11) ,0(2, 14) 

2000  PRINT  USING  Formatl; "Tip  Claaranca  ",0(1,1S) ,0(2, IS) 

2010  PRINT 
2020  PRINT 

2030  Format2:  IMAGE  13X,K. SX,0. 4D, 13X,D. 40 
2040  ntINT  TABdS) ;  "Blada  Rom  ParEoimanca" 

2030  PRINT  TAB(18);" . . 

2060  PRINT  USING  Foxmat2;"Ra£.  ProEl la  Loaa  ",0(1,1) ,0(2, 1) 

2070  PRINT  USING  FormatE ; "Tot .  Ptoflla  Loaa  ",0(1.2), 0(2, 2) 

2060  PRINT  USING  FormatR ; "Sao .  Flow  Loaa  ",0(1,3), 0(2, 3) 

2090  PRINT  USING  Fozmat2; "Mixing  Loaa  ".0(1, 4), 0(2, 4) 

2100  PRINT  USING  Fozmat2;"Tlp  Claaranca  Loaa  ".0(1, 3), 0(2, 3) 

2110  PRINT  USING  Foimat2 ; "Total  Loaa  Coatf.  ".0(1, 6). 0(2, 6) 

2120  PRINT 

2130  Foxmat3!  IMAGE  1SX,K.SX,30.2D,14X,3D.20 

2140  PRINT  USING  Formats ; "Exit  Praaaura  (pala)",0(l,16) ,0(2, 16) 

2130  PRINT  USING  Forma',S; "Exit  Tamp.  (dag  R)". 0(1, 17), 0(2, 17) 

2160  PRINT 
2170  PRINT 

2180  PRINT  TAB (16): "Stage  Par£ormanca":TAB(39):"Total-Total":TAB(39):"rot-Statlc 

2190  PRINT  TAB(16);" - ";TAB(39):" - ";TAB(39):" 

2200  PRINT 

2210  PRINT  USING  Formatl; "Praaaura  Ratio  ";0(3.3),0(3, 1) 

2220  PRINT  USING  FormatR; "Emolaney  ";0(3,4),0(3,2) 

2230  PRINTER  IS  CRT 
2240  GOTO  2740 

2230  Bladlnt  loaa  aubroutlna  — 

2260  BladlB«_laaa:  t 
2270  I——  Total  PreElla  Loaa  — — 

2260  PRINT  "Ra  ■■  ";R9 

2290  INPUT  'Entac  K(Ro)  (Tig  23,  ref:  aA1074VA2):  ",K1 
2300  PRINT  "Mach#  -  ":M 

2310  INPUT  "Entar  K(M)  (fig  18,  raf:  1174VA1):  ",K3 
2320  K2-l+2*(T8/C-.2) 

2330  S2<i«l*Kl*K2*IC3 
2340  W9-«0*144/(Zl»q8*A“2) 

2330  H»-A«(M9*(14-.77*S2)+.023*S2*D8) 

2380  I-——  Saeondary  Flow  Loaa  — — 

2370  H3-(S-T7)*CpS(D7)/H9 

2380  S3-S2* . 0323*D8*HS*( 1+. 982*32) / ( 1- . 03*D8*HS*S2) 

2390  —  Mixing  Loaa - 

2400  S4-(T7/S> . 902*S2 ) / ( 1+ . 962*32 ) 

2410  S4-(COS{07)*S4/(1-S4))“2 

2420  34-34/(1*34) 

2430  I - Tip  Claaranca  Loaa - 

2440  06-07-08 

2430  03-ATN((TAH(06)*TAN(07))/2) 

2480  S3^»S(07)*2*(ABS(TAN(06)-TAN(07))*1.S/COS(D3)) 

2470  S3-2.26*S3*T9/(H9*S(7R(B/S)) 

2480  SS-SS/(1*S3) 


2490 

I----- 

2300 

S8-S2+S3+S4+SS 

2310 

PRINT 

"Raf.  Proflla  Loaa 

-  ‘'iSl 

2320 

PRINT 

"Tot.  Proflla  Loaa 

-  ":S2 

2330 

PRINT 

"Sac.  Flow  Loaa 

-  ":S3 

2340 

PRINT 

"Mixing  Loaa 

-  ":S4 

2330 

PRINT 

"Tip  Claaranca  Loaa 

-  ":S3 

2360 

PRINT 

2370 

PRINT 

"  Total  Loaa  - 

’:S6 

2380  0(K.1)-81 

2390  0(K,2)-82 

2600  0(K,3)-S3 

Figure  D12  (cont)  TPL  Program:  TURB4 
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2610  0(K.*)-3* 

2620  0(K,3)-S3 
2630  0(K,6)-S6 
2640  0(K,7)-H9 

2630  0(K,8)oZl 
2660  0{IC,9)-A 
2670  O(K,10)-B 
2680  0(X.11)>S 

2690  0<K.12)^ 

2700  0(K,13)-T7 
2710  0(K.14)-I8 
2720  0<K.13)-T9 
2730  RRUBH 

2740  DISP  "F2  to  wit.  P3  tot  anothar  nm" 

2730  PAUSE 

2760  PRINTER  IS  C31T 

2770  LOAD  •'DESI6H_MEH0" ,  10 

2780  END 


Figure  D12  (cont)  TPL  Program:  TURB4 
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10 

IPrograa;  DeSIGN_MENU 

20 

IDaserlptlon;  Progzaa  to  provtdo  Function  Koy 

manu  salaetlon  at  pzogzama 

30 

1 

40 

CLEAR  SCSEEH 

so 

PRIKTER  IS  CRT 

60 

KEY  LABELS  ON 

70 

ON  KEY  1  LABEL  ••R_4431T"  GOTO  R_4431t 

80 

ON  KEY  2  LABEL  ”a“4431T"  GOTO  A24431t 

90 

ON  KEY  3  LABEL  ■’TURB3''  GOTO  Turb3 

100 

OH  KEY  4  LABEL  "TURBA"  GOTO  Turb4 

110 

OR  KEY  S  LABEL  ”  ■*  GOTO  Bold 

120 

OR  KEY  6  LABEL  "  *  GOTO  Hold 

130 

OH  KEY  7  LABEL  -rttlH  MENU"  GOTO  Main 

140 

OH  KEY  8  LABEL  "EXIT  MENU”  GOTO  Exit 

ISO 

1 

160 

PRINT  "Turbo-pcopulslon  Daaign  Pzogzana” 

170 

PRINT 

180 

PRINT  ”Itaa:  Solact 

Function  Kay" 

190 

PRINT 

200 

PRINT  ”  R_4431T:  ParYozmane  Caleulatlona 

Fl“ 

210 

PRINT  "  “  (Itazata  on  R*)" 

220 

PRINT  ”  A_4431T:  PazYozaano  Caleulatlona 

F2~ 

230 

PRINT  "  (Itazata  on  Alphal)” 

240 

PRINT  ”  TURB3;  Dzaw  Blada  PzoYllaa 

FI¬ 

230 

PRINT  ”  TtntB4;  Blada  Balght  and  Loaaa 

FA" 

260 

PRINT 

270 

PRINT  ”  Main  Manu 

FI¬ 

260 

PRINT  ”  Exit  Manu 

FO” 

280 

1 

300 

Bold;  1 

310 

GOTO  Bold 

320 

R  4431b:  1 

330 

“load  "R  4431T",16 

340  A  4431t:  1 

••so 

LOAD  ”A  4431T”,10 

360 

Tuzb3:  !  “ 

379 

LOAD  ”TORB3",10 

360 

Tuzb4 :  1 

390 

LOAD  ”TDRB4",10 

400 

Main:  1 

410 

MASS  STORAGE  IS  " /MaRXSTATIONS” 

420 

LOAD  "AUTOST” ,  10 

430 

Exlt:CLEAR  SCREEN 

440 

END 

Figure  D13 
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1  I Program: 

10  IDaserlp: 

20  t 

30  tOavtcaa: 

*0  iModltr; 

SO  (Rotaa: 

80  I 

70  I 

80  I 

00  I 

too  t 

110  DIM  Prasad: SO) 

120  IDsstsnata  Soanlvalva: 

130  IHPOT  ’’Input  Scanlvalva, 

140  I 

150  OUTPUT  722:’’8STG10STIT3’’ 

180  CLEAR  701 

170  ! 

180  FOR  Port  raqd~Firat  TO  Last 
190  OOSra  Raad 

200  WAIT  .5 

210  OUTPUT  701  USIHG  ”0DD’’:V+9 

220  TRIGGER  722 

230  EHTER  722 :Prass( Port  ra<id) 

240  CLEAR  701 

2S0  NE3CT  Pert  taqd 
260  CLEAR  722~ 

270  I 

280  PRXHT  "PORT  R”, ’’PRESS  (IR.  B20)' 
290  PtlRT 

300  PCA  I«rixst  TO  Last 
310  PRIRT  I,Pxasa(I)*1000ao 

320  REST  I 

330  I 

340  GOTO  Finish 

3S0  OF  HAIR  PROGRAM*' 

360  I 

370  I 


f Assign  array  in  Memory. 

Last  port:”, V, First, Last 

fSat'up  aP3436A  OVM. 

IRssat  HP349SA  Scanner. 

IRoutlna  to  raad  prsssurs  valuss. 
I Subroutine  to  raad  Scanlvalva 
Iport  nuafaar  from  BG-78. 

ISat  Scanner  connect  OVM  to  BG-78 
I Trigger  DVM  to  raad  Scanlvalva. 
lOVH  roads  value,  and  wrltas  to 
IHP9000  aamory.  Scannsr  la  reset. 

IRaset  DVM. 

IRoutlna  to  print  results  to  the 
IBP9000  CRT. 


’SUBROUTIRE  READ  AJID  POSITIOH  SCAHIVALVE 


SCAN 

Raada  voltagss  from  daslgnatsd  scanlvalva  through  scannar  #1 
and  prints  to  CRT  port  t  and  voltagaa  In  praaaurs  (In.  Hg). 
HP349SA(701)  #1,  HF34S6A(722),  BG-78(707),  Scanivalvad-S) 
Using  Molyo  routines. 

Oavicaa  BP3493A  and  BG-78  uss  apaclflc  ccaanunlcation  formats 
In  tha  OUTPUT  atataoMnta  by  utilising  tha  imago  form  USING. 

BP340SA:  OUTPUT  701  USING  ”DDD":V+9 
aG-78:  OUTPUT  707  USING  ”#,1C”:V 


First  port 


380  Road:  I 

390  OUTPUT  707  USING  "#.E”:V 
400  P0-SPOLL(707) 

410  L-BINAHD(P0,13) 

420  T-SH1FT<P0,4) 

430  (^BIRAND(T,7) 

440  Post_raad-10*mL 
4S0  CLEM  707 

480  IF  Fort  caad''Poct  r*4d  THEN  Exit 

470  OUTPUT  701  USING  "DD0”:V-1 

480  CLEAR  701 

490  WAIT  . 1 

300  GOTO  Read 

SIO  Ezlt:RETURN 

S20  I  •••••*****niD  OF  SUBROUTINES***' 
S30  Finish :.| 

340  END 


IRoutlna  to  call  BG-78,  aak  for  the 
I  currant  port  aaslgnsd,  raad  tha  port 
Inuabot,  and  convert  It  to  decimal 
I  format. 

IScanivalva  port  nuabor  In  daclaal 
I  format.  . 

(Exit  subroutine  If  raqd  port  sslsctad 
lAdvanca  S/V  to  next  port 
IRssat  Scannsr 

ILoop  to  Raad  for  another  port  reading 


Figure  D14  TPL  Program:  SCAN 


187 


10  SUB  Plot 

20  I  Subroutino  to  display  plot  aczaan,  lass  tha  plots  of  sny  curvas 

30  I  for  tha  spaelflad  vazlablas  in  tha  COM  /Plot  labals/  Una. 


40  COM  /Plot_labala/  Xo.Xf .Yo.Yf ,Dx 

SO  CLEAR  SCREEM 

SO  KEY  LABELS  OFF 

70  GIBIT 

80  X_zansa>Xf-Xo 

90  y  tcnsa^Yf-Yo 

100  L^  6 

110  MOVE  100*HAHO/2.100 

120  CSIZE  3 

130  LABEL  TltlaS 

140  MOVE  100*ltAIIO/2,0 

ISO  LORO  4 

160  LABEL  X  labalS 

170  DEO 

ISO  LOIR  90 

190  LORO  8 

200  HOVE  0,30 

210  LABEL  Y  labalS 

220  LOIR  0  ~ 

230  LORO  2 

240  VIEWPORY  10, 90*RAIIO, 10,90 
230  FRAME 

280  WinDOH  Xo,Xf,yo,Yf 

270  AXES  X_ransa/Ox,y_ranis/Oy,Xo,Yo 

280  AXES  X_zanca/Ox,Y_ransa/Oy,Xf ,Yf 

290  OKID  X_zaBca/Ox,Y  raaca/Or.Xo, Yo, 

300  CLIP  OFF 

310  C8IZX  3.0,. 4 

320  LORO  8 

330  FOR  I-Xe  TO  Xf  STEF  X  r«n«a/Dz 

340  MOVE  I.Xe-.01*y  tania 

330  LABEL  USIHO  ’’P.X'*;! 

360  HEXT  I 

370  LORO  8 

380  FOR  I-Yo  TO  Yf  STEP  Y  ran«a/Dy 

390  MOVE  Xo-.01«X  rangaTl 

400  LABEL  USIIfO  "P.K'M 

410  NEXT  I 

420  CLIP  OR 

430  I 

440  SUBEHD 


Dy , TitlaS ,X_labal3 , y_labalS 


!Inltiallza  graph  routlna 

iLangth  of  X-axis 

ILangth  of  Y-axis 

ICharactar  raf  pt:top  eantar 

IMova  cursor  to  scraan  loe  for  labals 

ISixaa  laballng 

I Plot  tltla 

!Movo  cursor  to  bottca  eantar  scraan 
ICharactar  raf  ptibottco  eantar 
!X-axls  labal 
lOaalg  dagraas  for  LOIR 
tSats  Y-axis  labal  on  and 


lY-axls  labal 

IRaaat  labal  to  horizontal  oriantation. 

IChr  raf  ptilaft  eantar 

ISata  graph  scraan  aiza 

I Box  around  VIEWPORT 

ISat  axis  laogths  in  VIEWPORT 

lAxas  Intarsact  at  lo««ar  laft 
lAzas  Intarsact  at  uppar  right 
Ox.Oy, ,001  ICraata  dot  grid  background 
tSo  labals  can  print  outside  VIEWPORT 
lAjtaa  labal  aisa 
IRiadiar  X-axis 


tRunbac  Y-axis 


Figure  D15  TPL  Subprogram;  Plot 
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10  IDat«3-FNDat«0(TIMEOATZ) 

20  DBF  Fin)ata3(Sacond8) 

30  Jullan-Saeonds  DIV  06800-1721119 

80  taar-<8*JuUan-l)  DIV  186097 

SO  Jullan-(8*Jullan-l)  MOO  186097 

60  Day-JuUan  DIV  8 

70  Julian-! 8*Day+3)  DIV  1861 

80  Dar'<**Dar8’3)  MOO  1861 

90  DtT’CDar**)  OrV  8 

100  Month-(3»Day-3)  DIV  133  !  Month 

110  DaT-(3*Day-3)  MOO  133 

120  0a7-(Dar*-3)  DIV  3  I  Day 

130  Taar“100*Yaar+Julian 

180  I?  Month<10  THBM 

ISO  Month^1onth+3 

160  ELSE 

170  Month-Month-83 

180  Yaac-yaar+l 

190  EED  IF 

200  YaarS-VALSCYaar) 

210  IF  Honth^lO  THEN 

220  Month3-''0'' AVALS  (Month) 

230  ELSE 

280  MonthS-VALS (Month) 

230  END  IF 

260  IF  Day<ia  THEN 

270  DayS-‘'0'‘AVALS(Oay) 

260  ELSE 

290  Da76-VALS(0ay) 

300  END  IF 

310  0S-YaazS(3,818MaDthS«0ayS 

320  RETUltR  DS 

330  FNEHD 


Figure  D16  TPL  Subprogram:  FNDate$ 
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10  I  Program  :FILE_XFER 

20  lOascrlption;  transfara  aalaetad  fllaa  to  a  aalactad  diractory,  and 
30  I  PURGES  tha  aama  flla  1£  daalrad. 

40  OH  ERROR  GOTO  Error 

SO  CLEAR  SCREEH 

80  DIM  OlraetorylStSS] 

70  DIM  Dlractory2St3Sl 

80  PRINT  "Thla  program  tranafara  fllaa  from  an  arlating  apacifiad  INiriAL  directory  ' 

90  PRINT  "to  a  NEW  diractory." 

100  INPUT  "Initial  Diractory?  (ax.  /MORE/' )", Diractory IS 

110  INPUT  "Maw  directory?  (ax.  * /' . * /WORK/ * )”.Dltactory2S 
120  CLEAR  SCREEH 

130  CAT  DlraetoxylS 

140  Tranafar:  I 

130  INPUT  "Flla  for  tranafar  (CAT  to  print  diractory,  QUIT  to  Exit)",File3 

160  IF  FllaS-"QUIT"  THEN  Flniah 

170  IF  FilaS-"CAT"  THEN 

180  CLEAR  SCREEN 

190  CAT  DiraotorylS 

200  GOTO  Tranafar 

210  END  IF 

220  Copy:  I 

230  COPY  DlractarylS&FllaS  TO  DlractorySS&FilaS 

240  PRINT  "Flla  ";DixactorylSAFlloS; "  tranafarrad  to  ”;Diractory2S&FllaS 

230  INPUT  "Purga  thla  flla  from  currant  diractory?  (Tea*!  No~0)'‘,Dal 

280  IF  Dal«l  THEM 

270  PURGE  DiractorylStfllaS 

280  END  IF 

290  GOTO  Tranafar 

300  Error;  t 

310  IF  ERRlf-34  THEN 

320  PRINT  "Flla:  "jDlraetory2SRFllaS: “  already  axlat." 

330  INPUT  "Do  you  want  to  purge?  (0-Ho  l>yaa)",Fila_parga 

340  IF  Flla_purga«l  THEN 

330  PURGE  01raetory2SftFllaS 

380  PRINT  "Flla:  ";Dlxaetory2S8FllaS:"  purgad." 

370  GOTO  Copy 

380  ELSE 

390  PRINT  "Flla:  ";01raetory2S&FllaS;"  HOT  purgad." 

400  END  IF 

410  END  IF 

420  GOTO  Tranafar 

430  Finish;  I 
440  CLEAR  SC3UEN 

430  EDO 


Figure  D17 
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10  ! Program:  MAIN_MENU  ratums  working  window  to  tha  Main  Menu 
20  CONTROL  CRT,S;4  !Rasat  acraan  color  to  Graan. 
30  MASS  STORAGE  IS  ‘'/WORKSTATIONS" 

*0  LOAD  "AUTOST” ,  10 
30  END 


Figure  D18  TPL  Program:  MAIN_MENU 
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